alias numconv {
  %r=return
  %s = $replace($gettok($1,1,32),+,!,-,!,$chr(44),)
  if %s = $null %r
  if (%s !isnum 0- $str(9,66)) %r invalid
  tokenize 46 0 $+ %s
  if (!$1) %r zero
  %j = -66
  %t =
  %? =
  while %j {
    if 3 // %j {
      if (%t > 0) %? = %? %g $gettok(thousandm>b>tr>quadr>quint>sext>sept>oct>non>@un@duo@tre@quattuor@quin@sex@sept*@octo@novem@vigint>,$calc(-(%j)/3),8)
      %t =
    }
    %t = %t $+ $mid($1,%j,1)
    %g = $iif(%t > 99,$mid(%t,-3,1) hundred) $iif($mid(%t,-2) < 20,$ifmatch,$+($mid(%t,-2,1),0ty-,$mid(%t,-1)))
    inc %j
  }
  %r $replace(%? %g,10,t*,11,elev*,12,twelve,13,thir!,14,4!,15,fif!,16,6!,17,7!,18,<!,19,9!,20,tw*,30,thir,40,for,50,fif,60,6,70,7,80,<,90,9,1,one,2,two,3,three,4,four,5,five,6,six,7,sev*,8,<t,9,nine,!,te*,@,dec>,>,illion,*,en,<,eigh,-0,,0,)
}