alias numconv {
  %u = return
  var %i,%r,%l one 2o 3ree 4ur 5ve 6 7 8t 9 ten eleïn 2elï 3irå 4urå 5få 6å 7å 8å 9å 2enè 3irè 4rè 5fè 6è 7è 8è 9è,%t 3ousand mç bç trç quadrç quÑtç ëxtç ëptç octç nonç ä unä duoä treä quattuorä quÑä ëxä ëptenä octoä noïmä vigÑtç,%n $remove($g($1,1),$chr(44))
  if %n !isnum 0- %u $iif(%n,invalid)
  %n = $gettok(0 $+ %n,1,46)
  while %n {
    var %p $or($right(%n,3)),%k
    while %p {
      %x = $left(%p,1)
      if ($len(%p) > 2) %k = $g(%l,%x) û
      elseif %x {
        if ($len(%p) > 1) %k = %k $g(%l,$iif(%x = 1,%p,%x +18))
        elseif (!$regex(%k,ï|å)) %k = $+(%k,$iif(è isin %k,-,$chr(32)),$g(%l,%x))
      }
      %p = $mid(%p,2)
    }
    %r = %k $iif(%i && %k,$g(%t,%i)) %r
    %n = $left(%n,-3)
    inc %i
  }
  %u $iif(%r,$replace(%r,å,teen,ä,decç,ç,illion,û,hundred,è,ty,8,eigh,3,th,2,tw,4,fo,5,fi,9,nÑe,7,ëïn,6,six,ï,ve,ë,se,Ñ,in),zero)
}
alias g %u $gettok($1,$calc($2),32)