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]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).