alias v return $gettok($1,$2,46)
alias numconv {
  %r = return
  %x = goto
  if $gettok($1-,1,32) = , %x z
  var %l,%h,%w,%o = $gettok($remove($1-,$chr(44)),1,32)
  %a = Zero.One.Two.Three.Four.Five.Six.Seven.Eight.Nine.Ten.Eleven.Twelve.Thirteen.Fourteen.Fifteen.Sixteen.Seventeen.Eighteen.Nineteen.Twenty.Thirty.Forty.Fifty.Sixty.Seventy.Eighty.Ninety.Hundred.Thousand.M.B.Tr.Quadr.Quint.Sext.Sept.Oct.Non.Dec.Undec.Duodec.Tredec.Quattuordec.Quindec.Sexdec.Septendec.Octodec.Novemdec.Vigint
  %f = $gettok(%o,1,46)
  %j = $len(%f)
  if . = $1 %x z
  if . = $left(%o,1) %r Zero
  if $len(%f) > 66 %x z
  if (%o = $null) %r
  if (0 $+ %o !isnum) %x z
  %k = %j
  if %f isnum {
    if (%f = 0) %r Zero
    while %j > 0 {
      if (%l) %w = %l
      %b = $calc(%j -1)
      %p = $mid(%f,%b,1)
      %u = $mid(%f,%j,1)
      %s = $calc(%u +1)
      if (%u = $null) %x c
      %y = $calc(%k - %j)
      %g = $calc(%y /3)
      if . !isin %g {
        %e = $calc(%g +29)
        %h = $v(%a,%e) $+ $iif(%e > 30,illion)
        %q = $iif(%y > 2,%h)
        if %b = 0 {
          if %p != 0 {
            %l = $v(%a,%s) %q %w
          }
          %x a
        }
        if %u = 0 {
          if %p = 0 {
            if ($mid(%f,$calc(%j -2),1) > 0) {
              %l = %q %w
            }
            %x a
          }
          %l = $v(%a,$calc(%p + $iif(%p > 1,19,10))) %q %w
          %x a
        }
        if %p > 1 {
          %l = $v(%a,$calc(%p +19)) $+ - $+ $v(%a,%s) %q %w
          %x a
        }
        if %p isin 01 {
          %l = $v(%a,$calc(%u + $iif(%p = 0,1,11))) %q %w
          %x a
        }
      }
      if (%u = 0) %x c
      %l = $v(%a,%s) Hundred %w
      %x c
      :a
      dec %j
      :c
      dec %j
    }
    :b
    %r %l
  }
  :z
  %r Invalid
}