[/f{/four/fif}/s{/six/seven/eigh/nine}/t{/ten/eleven}>>’
[/n[/first/second/third f s’u/nin t/twelf]/m[/one/two/three f’u/five s’>’u/eight’>t/twelve]/p{Ž positive integer is ’v}/o{=only}/h{Žth’v}>>’
1ˆ
.runstdin{ŽThe ’v’8ˆ’a{1’©nˆ
’X’Ko’83’J{h}’Tp m’>’K}{’8ˆ’f{[/thir f s]1’Xˆ
’©’K’8oŽteenth’vp oŽteen}{’8ˆd’={Žone hundred’8’vh p}{[/twen/thir‘H/fif s]1’Xˆ
’R2’©’K’8oˆ
’Xˆ
’j0’={Žtieth’vp oŽty}{Žty-’vnˆ’Xˆ
’j1’©’Koˆ
’Xˆ
’j4’J{h}’Tp oŽty-’vm’>ˆ
’j1’©’K}’U}’U}’U}’UoŽ
.=}’H