100 by 51b

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).

download

return top