alias numconv {
  var %b $remove($gettok($1,1,32),$chr(44)),%n $gettok(%b,1,46),%a $chr(32),%r,%i $len(%n),%j 1
  if (%b !isnum) || ($left(%b,1) isin .-+) || ($len(%n) > 66) return $iif($regex(%b,^\.[0-9]+$),zero,$iif(%b,invalid))
  while %i {
    %r = $eval($+($,n,$iif(%j < 4,%j,4),($mid(%n,%i,1),%j,%r)),2) %r
    dec %i
    inc %j
  }
  %r = $iif(%r,$replace(%r,- -,-,%a,ÿ,ÿ-,%a,-ÿ,%a,ÿ,%a),zero)
  %j = $regsub(%r,^-,,%r)
  %j = $regsub(%r,-$,,%r)
  return $replace(%r,ten-one,eleven,ten-two,twelve,ten-three,thirteen,ten-four,fourteen,ten-five,fifteen,ten-six,sixteen,ten-seven,seventeen,ten-eight,eighteen,ten-nine,nineteen)
}
alias n1 return $replace($1,0,,1,-one,2,-two,3,-three,4,-four,5,-five,6,-six,7,-seven,8,-eight,9,-nine)
alias n2 return $replace($1,0,,1,ten-,2,twenty-,3,thirty-,4,forty-,5,fifty-,6,sixty-,7,seventy-,8,eighty-,9,ninety-)
alias n3 return $iif($1,$n1($1) hundred)
alias n4 return $iif($1,$eval($+($,n,$replace($calc($2 % 3),0,3),($1)),2) $iif($gettok(thousand million billion trillion quadrillion quintillion sextillion septillion octillion nonillion decillion undecillion duodecillion tredecillion quattuordecillion quindecillion sexdecillion septendecillion octodecillion novemdecillion vigintillion,$calc(($2 -1)/3),32) !isin $3,$ifmatch))