alias numconv {
  unsetall
  tokenize 32 $remove($1,$chr(44))
  %r = return
  if $1 isnum 0- && !$regex($1,[+-]) && $count($1,.) < 2 && $len($1) < 67 {
    %n = $token(0 $+ $1,1,46)
    while $len(%n) {
      %a = $calc($right(%n,3))
      %n = $left(%n,-3)
      %f = $a $iif($a && %e,$b) %f
      inc %e
    }
    %r %f
  }
  if ($1) %r Invalid
}
alias a {
  if (%e && %a = 0) %r
  %1 = $left(%a,1)
  %4 = $right(%a,2)
  if ($len(%a) = 3) var %c $iif($n(%1),$n(%1) hundred $chr(32))
  if (%4 < 20) %r %c $+ $iif(%n || %c && %4 = 0,,$n(%4))
  %r $+(%c,$m($left(%4,1)),$iif($mid(%4,-1),- $+ $n($ifmatch)))
}
alias b {
  if (%e > 1) %r $+($token(-.m.b.tr.quadr.quint.sext.sept.oct.non. .un.duo.tre.quattuor.quin.sex.septen.octo.novem.vigint,%e,46),$iif(%e isnum 11-20,dec),illion)
  if (%e) %r thousand
}
alias m %r $token(-.twen.thir.for.fif.six.seven.eigh.nine,$1,46) $+ ty
alias n %r $token(zero.one.two.three.four.five.six.seven.eight.nine.ten.eleven.twelve.thir.four.fif.six.seven.eigh.nine,$calc($1 +1),46) $+ $iif($1 > 12,teen)