alias numconv {
  %r = return
  if (!$len($1)) %r
  %n = $remove($gettok($1,1,32),$chr(44))
  %p = $gettok(%n,1,46)
  %r $iif(%n !isnum || $count(%n,+,-) || $count(%n,.) > 1,Invalid,$iif($int(%p) && $left(%n,1) != .,$nt($left(%p,-3)) $nh($right(%p,3)),Zero))
}
alias nh {
  %6 = $mid($1,-3,1)
  %r $iif(%6,$pt(,%6) Hundred) $pt($mid($1,-2,1),$mid($1,-1,1))
}
alias pt {
  if $1 = 1 %r $replace($2,0,Ten,1,Eleven,2,Twelve,3,Thir,4,Four,5,Fif,6,Six,7,Seven,8,Eigh,9,Nine) $+ $iif($2 > 2,teen)
  %7 = $replace($2,0,,1,One,2,Two,3,Three,4,Four,5,Five,6,Six,7,Seven,8,Eight,9,Nine)
  %r $+($iif($1,$replace($1,2,Twen,3,Thir,4,For,5,Fif,6,Six,7,Seven,8,Eigh,9,Nine) $+ ty),$iif($1 && %7,-),%7)
}
alias nt {
  %a =
  %b = $1
  %i = 1
  while %b {
    if ($int($right(%b,3))) %a = $nh($ifmatch) $replace(%i,21,Vigint,20,Novemdec,19,Octodec,18,Septendec,17,Sexdec,16,Quindec,15,Quattuordec,14,Tredec,13,Duodec,12,Undec,11,Dec,10,Non,9,Oct,8,Sept,7,Sext,6,Quint,5,Quadr,4,Tr,3,B,2,M,1,Thousand) $+ $iif(%i > 1,illion) %a
    %b = $left(%b,-3)
    inc %i
  }
  %r %a
}