alias numconv {
  %£ = return
  var %‘ Fif Six Seven Eigh Nine,%1 One Two Three Four Five Six Seven Eight Nine,%2 Ten Eleven Twelve Thir Four %‘,%3 x Twen Thir For %‘,%4 x Thousand M B Tr Quadr Quint Sext Sept Oct Non Dec Un Duo Tre Quattuor Quin Sex Septen Octo Novem Vigint,%Ÿ,%c 1,%~ $remove($ô($1,1),$chr(44)),%+ $gettok(0 $+ %~,1,46)
  if %~ isnum && $len(%+) < 68 && %+ isalnum {
    while $right(%+,3) {
      var %^ $ifmatch,%! $mid(%^,-3,1),%@ $mid(%^,-2,1),%# $right(%^,1),%½ $calc(%# + 1)
      %Ÿ = $iif(%!,$ô(%1,%!) Hundred) $iif(%@ == 1,$ô(%2,%½) $+ $iif(%½ > 3,teen),$iif(%@,$ô(%3,%@) $+ ty) $+ $iif(%#,$iif(%@,-) $+ $ô(%1,%#))) $iif(%c > 1 && $remove(%^,0),$+($ô(%4,%c),$iif(%c isnum 13-21,dec),$iif(%c > 2,illion))) %Ÿ
      %+ = $left(%+,-3)
      inc %c
    }
    %£ $iif(%Ÿ,%Ÿ,Zero)
  }
  %£ $iif(%~,$iif(%~ == 0,Zero,Invalid))
}
alias ô %£ $gettok($1,$2,32)