alias numconv {
  var %r,%l One Two Three Four Five Six Seven Eight Nine,%a Eleven Twelve Thir Four Fif Six Seven Eigh Nine,%m 0 Twen Thir For Fif Six Seven Eigh Nine,%h Thousand M B Tr Quadr Quint Sext Sept Oct Non Dec Undec Duodec Tredec Quattuordec Quindec Sexdec Septendec Octodec Novemdec Vigint,%f 0,%g ^[\d.]+$,%i Invalid
  %z = return
  %n = $remove($t($1,1),$chr(44))
  if %n = %r %z %r
  if !$regex(%n,%g) || %n = . || ($count(%n,.) > 1) %z %i
  %n = $gettok(00 $+ %n,1,46)
  if %n = 0 %z Zero
  %c = $len(%n)
  dec %c 2
  if %c > 66 %z %i
  while %c > 0 {
    %j = $iif($d(1),$t(%l,$d(1)) Hundred) $iif($d(2),$iif($d(2) = 1,$iif($d(3),$t(%a,$d(3)),Ten) $+ $iif($d(3) > 2,teen),$t(%m,$d(2)) $+ ty $+ $iif($d(3),- $+ $t(%l,$d(3)))),$t(%l,$d(3))) 
    %r = %j $iif(%j,$t(%h,%f) $+ $iif(%f > 1,illion)) %r
    dec %c 3
    inc %f
  }
  %z %r
}
alias t {
  %z $iif($2,$gettok($1,$2,32))
}
alias d %z $mid($mid(%n,%c,3),$1,1)