main=mapM putStrLn$"zero":s++w"ten eleven twelve"++map(++"teen")t++[a++b|a<-map(++"ty")$w"twen thir for"++drop 2t,b<-"":map(' ':)s]++["one hundred"]
s=w"one two three four five six seven eight nine"
t=w"thir four fif six seven eigh nine"
w=words
Note that non-ascii characters in the above source code will be escaped (such as \x9f).