(map print`(zero,@#0='(one two three four five six seven eight nine)ten eleven twelve,@(map(rec,x #`",|x|teen")#1='(thir four fif six seven eigh nine)),@(apply append(map(rec,x`(,#`",|x|ty",@(map(rec,y #`",|x|ty ,y")#0#)))`(twen thir for,@(cddr #1#))))"one hundred"))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).