alias numconv {
  %c = ,
  var %y $token($1,1,32),%q $remove(00 $+ %y,[ %c ]),%n $token(%q,1,46),%i $len(%n) - 2,%s OneTwoThreeFourFiveSix/v*EightN\eT*Elev*TwelveThir+Four+Fif+Six+/v*+Eigh+N\e+,%p,%j
  while (%i > 0) {
    inc %j
    %m = $mid(%n,%i,3)
    if (%m) %p = $iif(%m > 99,$token(%s,$left(%m,1),3) Hundred) $iif($mid(%m,-2) < 20,$token(%s,$ifmatch,3),$+($token(zTw*ThirForFifSix/v*EighN\e,$mid(%m,-2,1),3),ty-,$token(%s,$mid(%m,-1),3))) $token(19ThousandM^B^Tr^Quadr^Qu\t^/xt^/pt^Oct^Non^=Un=Duo=Tre=Quattuor=Qu\=/x=/pt*=Octo=Novem=Vig\t^,%j,3) %p
    dec %i 3
  }
  return $iif($len($1) && %y != %c,$replace($iif($left($1,1) isin +- || $mid(%q,3) !isnum || %y = . || $pos(%y,.,2) || ($len($1) > 66 && %n > 0),\valid,$iif(%n > 0,%p,Zero)),-1,1,19,,+,te*,=,dec^,^,illion,*,en,\,in,/,Se))
}