alias numconv {
tokenize 32 onetwothreefourfivesix¨^t` , $1
%x = 1
while %x < 23 {
var %q $remove($3,$2),%y $token(00 $+ %q,1,46),%n $left(%y --,$calc(-3*%x)),%z $mid(%n,-2,1),%c $mid(%n,-1) + 1,%i = $token($1,$mid(%n,-3,1) 0,3) æ $iif(%z = 1,$token(teneleventwelvethir¬four¬fif¬six¬¨¬^¬`¬,%c,3),$+($token(-twenthirforfifsix¨^`,%z 0,3),ty-,$token($iif(%x = 1 && !%n,zero,~) $1,%c,3))) $iif($mid(%n,-3) > 0,$token('thousand'mbtrquadrquintsextseptoctnon@un@duo@tre@quattuor@quin@sex@septen@octo@novem@vigint,%x,3) $+ ¶) %i
inc %x
}
return $iif(%q !isnum || ($len(%y) > 68 && %y != 0) || $regex(%q,-|\+),$iif(%q,Invalid),$replace($remove(%i,'¶,9ty-,-~,~,9 æ,10),@,dec,¬,teen,¨,seven,`,nine,^,eigh,æ,hundred,¶,illion))
}