(A:=#(#zero#one#two#three#four#five#six#seven#eight#nine#ten#eleven#twelve))do:[:x|(x,0)displayNl].(T:=#(#thir#four#fif#six#seven#eigh#nine))do:[:t|(t,#teen)displayNl].{#twen},T at:3put:#for;do:[:t|D:=(t,#ty)displayNl.
2to:10 do:[:i|(D,' ',(A at:i))displayNl]].'one hundred'displayNl
Note that non-ascii characters in the above source code will be escaped (such as \x9f).