/o{=only}def/zero o[/ /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{1 index{1 index o/ty o dup/ ne{( )print}if
=}forall pop}forall(one hundred)=