END{p=" six seven eight nine"
q="one two three four five"p
for($0="zero "q" ten eleven twelve";$++i;sub("t",_,p))print$i
for($0="thir four fif"p;$++j;)print$j"teen"
sub("u",_)split(q,a)
for($0="twen "$0;$++k;){print x=$k"ty"
for(l=0;c=a[++l];)print x" "c}print"one hundred"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).