alias numconv {
  tokenize 32 onetwothreefourfivesix&*ñ $1
  var %b $remove($2,$chr(44)),%n $token(000 $+ %b,1,46),%i 3,%r
  %_ = return
  if * !iswm %b %_
  if %n = 0 && (%b isnum) %_ zero
  if %b !isnum || $len(%n) > 69 || (%n !isnum) %_ invalid
  while %i < $len(%n) {
    %m = $mid(%n,- $+ %i,3)
    if (%m > 0) %r = $iif(%m > 99,$z($1,$left(%m,1)) hundred) $replace($iif($regex(%m,1[^0]$),$z(eleventwelvethir^four^fif^six^&^*eenñ^,$mid(%m,3)),$z(tentwentythirtyfortyfiftysixty&ty*yñty,$mid(%m,2,1)) $z($1,$mid(%m,3))),$chr(32),-) $z(thousandmi!bi!tri!quadri!quinti!sexti!septi!octi!noni!~un~duo~tre~quattuor~quin~sex~septen~octo~novem~viginti!,$calc(%i /3-1)) %r
    inc %i 3
  }
  %_ $replace(%r,~,deci!,!,llion,&,seven,^,teen,ñ,nine,*,eight)
}
alias z if ($2) %_ $token($1,$2,2)