alias g %r $gettok($1,$2,46)
alias numconv {
  %r = return
  %1 = One.Two.Three.Four.Five.Six.Seven.Eight.Nine
  %2 = Ten.Eleven.Twelve.Thir.Four.Fif.Six.Seven.Eigh.Nine
  var %h = $regsub($1,/(,|\s.*)/g,,%n),%t,%k,%u $g(0 $+ %n,1) $+ 0
  if %n !isnum || ($len(%u) > 68 && %u > 0) || %u !isnum {
    %r $iif(%n,Invalid)
  }
  while $left(%u,$calc(-1-3*%k)) {
    var %g $ifmatch,%a $right(%g,1),%b $mid(%g,-2,1),%c $mid(%g,-3,1),%z = $g(%1,%a),%s %b + %a
    if (%b > 1) %l = $+($g(:.Twen.Thir.For. $+ $g(%2,6-),%b),ty,$iif(%a,- $+ %z))
    else %l = $iif(%b,$g(%2,%s) $+ $iif(%s > 3,teen),$iif(%a,%z))
    if (%c) %l = $g(%1,%c) Hundred %l
    %t = %l $iif(%l && %k,$g(Thousand.M.B.Tr.Quadr.Quint.Sext.Sept.Oct.Non.Dec.Undec.Duodec.Tredec.Quattuordec.Quindec.Sexdec.Septendec.Octodec.Novemdec.Vigint,%k) $+ $iif(%k > 1,illion)) %t
    inc %k
  }
  %r $iif(%t,%t,Zero)
}