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