alias numconv {
  %1 = One Two Three Four Five Six *v& ^t ? T& Elev& Twelve Thir_ Four_ Fif_ Six_ *v&_ ^_ ?_
  %3 = T& Tw&! Thir! For! Fif! Six! *v&! ^! ?!
  %r = return
  %x = $y($remove(0 $+ $1,$chr(44)),1)
  %r $iif(%x !isnum || %x iswm 0.,Invalid,$iif(%x,$iif(%x < 1 && %x >= 0,Zero,$iif($len(%x) > 66,Invalid,$replace($x($gettok(%x,1,46)),_,teen,z,illion,@,dec,!,ty,&,en,^,Eigh,*,Se,?,Nine)))))
}
alias y %r $iif($2,$gettok($1,$2,32),$iif($1 > 0,$b($iif($1 < 20,1,2),$1)))
alias x {
  %t = $len($1)
  %r $iif(%t < 4,$b(%t,$1),$u($1,$replace($calc(%t % 3),0,3),$calc($int($calc((%t -1)/3))*3)))
}
alias u %r $iif($left($1,$2) != 000,$b($2,$ifmatch) $y(Thousand Mz Bz Trz Quadrz Quintz *xtz *ptz Octz Nonz @z Un@z Duo@z Tre@z Quattuor@z Quin@z *x@z *pt&@z Octo@z Novem@z Vigintz,$calc($3 /3))) $x($right($1,$3))
alias b {
  %z = $right($2,1) 
  %a = $mid($2,-2,1)
  %r $iif($1 > 2,$iif($left($2,1),$y(%1,$ifmatch) Hundred) $y($right($2,2)),$iif(%z,$iif($2 > 20,$+($y(%3,%a),-,$y(%1,%z)),$y(%1,$2)),$y(%3,%a)))
}