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<14?$i:$i"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).