alias numconv { 
  var %t 00 $+ $t($+( [ $1 ] ),1),%n,%0 One Two Three Four Five 6 7 8t 9 Ten Eleven Twelve Third~ Four~ Fif~ 6~ 7~ 8~ 9~,%1 1 Twen Thir For Fif 6 7 8 9,%2 Thousand M B Tr Quadr Quint Sext Sept Oct Non ! Un! Duo! Tre! Quattuor! Quin! Sex! Septen! Octo! Novem! Vigint
  if $1 && %t isnum 0- { 
    %t = $gettok(%t,1,46)
    while %t {
      var %a $mid(%t,-3),%t = $iif($len(%t) < 3,$str(0,$calc(3- $len(%t)))) $+ $mid(%t,1,-3),%d $mid(%a,2,1),%u $right(%a,1),%b %d $+ %u,%r = $t(%0,$left(%a,1),Houndred) $iif(%b > 19,$+($t(%1,%d),ty-,$t(%0,%u)),$t(%0,%b)) $iif(%a > 0,$t(%2,%n) $+ $iif(%n > 1,illion)) %r
      inc %n
    }
     return $iif(%r,$replace(%r,~,teen,!,Dec,6,Six,7,Seven,8,Eigh,9,Nine),Zero)
  }
  return $iif($1,Invalid) 
}
alias t if $2 > 0 return $gettok($1,$2,32) $3