alias numconv {
  %1 = $replace(one two three four five six seven eight nine ten eleven twelve thir. four. fif. six. seven. eigh. nine.,.,teen)
  if $1 = $€ return
  if $regsub($remove($gettok(0 $+ $1,1,32),$chr(44)),/\.\d+|\./g,,%n) > 1 || (%n !isnum) return invalid
  if !%n && (!$2) return zero
  tokenize 32 %n $calc($2 +1) $mid(%n,-1) $mid(%n,-2) $mid(%n,-2,1) $mid(%n,-3,1)
  return $t($left($1,-3),$2) $iif($right($1,3) > 0,$iif($6,$gettok(%1,$6,32) hundred) $iif($4 isnum 1-19,$gettok(%1,$4,32),$iif($5,$+($gettok(. twen thir for fif six seven eigh nine,$5,32),ty,$iif($3,-))) $+ $iif($3,$gettok(%1,$3,32))) $iif($2 > 2,$replace($gettok(. . m b tr quadr quint sext sept oct non . un. duo. tre. quattuor. quin. sex. septen. octo. novem. vigint,$2,32),.,dec) $+ illion,$iif($2 > 1,thousand)))
}
alias t return $numconv($1,$2)