w=words;e#b="zero":e++w"ten eleven twelve"++map(++"teen")(w"thir four"++b)++[a++x|a<-w"twen thir for"++b,x<-"ty":map("ty "++)e]++["one hundred"];main=mapM putStrLn$w"one two three four five six seven eight nine"#w"fif six seven eigh nine"