define(a,`one,two,three,four,five,six,seven,eight,nine')define(f,`ifelse($2,,,$1 $2 `f($1,shift(shift($@)))')')define(g,`ifelse($1,,,`$1ty f($1ty,a)g(shift($@))')')zero f(,a)ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen g(twen,thir,for,fif,six,seven,eigh,nine)one hundred
Note that non-ascii characters in the above source code will be escaped (such as \x9f).