100 by llhuii(nn)

END{p=" six seven eight nine"
for($0="zero one two three four five"p" ten eleven twelve thir four fif"p;$++i;$19="eigh")print$i(i<14?E:"teen")
for($(k=13)="twen";l<10||l=$++k;$15="for")print$k"ty"(l++?FS$l:E);print"one hundred"}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top