a=:'';' one';' two';' three';' four';' five';' six';' seven';' eight';' nine' b=:'twenty';'thirty';'forty';'fifty';'sixty';'seventy';'eighty';'ninety' c=:'ten';'eleven';'twelve';'thirteen';'fourteen';'fifteen';'sixteen';'seventeen';'eighteen';'nineteen' p1=:'zero';(}.&.>(}.a)),c p2=:(<@;)"1,/b,."(0 1)a echo each p1,p2,<'one hundred'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).