main=interact(\m->[1..read m]>>= \n->"The "++n%1++" positive integer is "++n%0++".\n")
100%i=0%i
n%i|n<13=[n!13$"",n!26$"th"]!!i|q<2=a!!r++w"teen teenth"!!i|0<1=(q!37)""++["ty-"++r%i,w"ty tieth"!!i]!!(0^r)where(q,r)=divMod n 10
(x!y)s=a!!(x+y)?(a!!x++s)
"*"?y=y
x?_=x
a="one hundred":w"* * thir four fif six seven eigh nine ten eleven twelf * one two three * five * * eight * * * twelve * first second third * * * * * ninth * * * twen * for * * * * *"
w=words