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