main=mapM(putStrLn.f)$f 'Z';f c=['A'..c]