(def f(n)(cut(+""(n-of 5" ")n"mm")(len:+""n)))(= x 841 y 1189)(for i 0 10(prn"A"i(if(> i 9)""" ")f.x" x"f.y)(swap x y)(= x(trunc:/ x 2)))