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']
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page