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"}