/o{=only}def/zero =[/one/two/three/four/five/six/seven/eight/nine]dup{=}forall/ten
=/eleven =/twelve =[/twen[/thir/four/fif/six/seven/eigh/nine]dup{o/teen
=}forall aload pop]dup 2/for put{dup o/ty = 1 index{1 index o(ty )o
=}forall pop}forall(one hundred)=
Note that non-ascii characters in the above source code will be escaped (such as \x9f).