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