a%(_:s)=putStrLn(s++init(do n<-a;cycle" .1 25 43"!!gcd 32n:" ")++s)>>zipWith(+)(0:a)(a++[0])%s main=[1]%([1..64]>>" ")