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