main=mapM putStrLn[do x<-z;[' ',toEnum$65+x+y]|y<-z]
z=map abs[-12..12]