alias numconv {
  %r = return
  var %a $remove($g($1,1),$chr(44)),%b $gettok(%a,1,46),%c,%d,%e Thousand M B Tr Quadr Quint Sext Sept Oct Non Dec Undec Duodec Tredec Quattuordec Quindec Sexdec Septendec Octodec Novemdec Vigint
  if %a !isnum || + isin %a || %a < 0 || $len(%b) > 66 {
    %r $iif(%a,Invalid)
  }
  if %a < 1 %r Zero
  while $right(%b,3) {
    %b = $left(%b,-3)
    %c = $iif($ifmatch > 0,$c($ifmatch) $g(%e,%d) $+ $iif(%d > 1,illion)) %c
    inc %d
  }
  %r $remove(%c,27)
}
alias c {
  var %a $right($1,2),%b,%c One Two Three Four Five Six Seven Eight Nine Ten Eleven Twelve Thir Four Fif Six Seven Eigh Nine Twenty Thirty Forty Fifty Sixty Seventy Eighty Ninety
  if (%a < 20) %b = $g(%c,%a) $+ $iif(%a > 12,teen)
  elseif (%a <= 99) %b = $g(%c,$calc($left(%a,1) +18)) $+ $iif($right(%a,1) > 0,- $+ $g(%c,$calc($ifmatch -28)))
  if ($1 > 99) %b = $g(%c,$left($1,1)) Hundred %b
  %r %b
}
alias g %r $gettok($1,$2,32)