d=toEnum.(+32).fromEnum
f[x]=[[x],[d x]]
f x=let y=init x in x:(y++[d$last x]):f y
main=mapM_ putStrLn$f['A'..'Z']