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