zero'P,{one.two.three.four.five.six.seven.eight.nine}d/.A_P,ten'P,eleven'P,twelve'P,.(;twen'\0 A=thir'\1 A=fif'\3 A=eigh'\6 A=.(;{teen'+P,}/for'\2 A=\e\+\At{Ar{ty }A,S|P,}/{one hundred}]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).