a 0=1189
a 1=841
a n=a(n-2)`div`2
l=length
f n x k=n++([1..k-l n-l x]>>" ")++x
s=show
main=mapM putStr['A':f(s n)(s$a(n+1))7++"mm x"++f""(s$a n)5++"mm\n"|n<-[0..10]]