main=mapM putStrLn[['A'..x]|x<-['A'..'Z']]