alias numconv {
  var %i = $remove($1-,$chr(44)),%j,%a,%b,%r,%t = 0
  %j = $regsub(%i,(\.| ).*,,%i)
  if (!%i) return $iif($len($1-),Zero)
  if $len(%i) < 67 && $regex(%i,^[0-9]+$) {
    while %i {
      %j = $right(00 $+ %i,3)
      %a = $c($left(%j,1))
      %a = $iif(%a,%a Hundred)
      %j = $right(%j,2)
      if (%j < 20) %b = $c(%j) $+ $iif(%j > 12,teen)
      else %b = $+($iif(%j < 40,$gettok(0
Twen
Thir,$left(%j,1),1),$c(1 $+ $left(%j,1))),ty,$iif($right(%j,1)!=0,- $+ $c($right(%j,1))))
      %r = %a %b $iif(%a || %b,$+($remove($gettok(Thousand
M
B
Tr
Quadr
Quint
Sext
Sept
Oct
Non
21
Un
Duo
Tre
Quattuor
Quin
Sex
Septen
Octo
Novem
Vigint,%t,1),21),$iif(%t > 10 && %t < 21,dec),$iif(%t > 1,illion))) %r
      %i = $left(%i,-3)
      inc %t
    }
    return %r
  }
  return Invalid
}
alias c return $remove($gettok(One
Two
Three
Four
Five
Six
Seven
Eight
Nine
Ten
Eleven
Twelve
Thir
Four
Fif
Six
Seven
Eigh
Nine,$1,1),19)