alias numconv {
  var %n.q = 1 | while (%n.q <= $0) { var %n.w = $+(%n.w,$eval($ $+ %n.q,2)) | inc %n.q } | n.7 %n.w
  var %n.1 = $gettok($result,1,46), %n.c = 1, %n.l = $len(%n.1) | if (($result !isnum 0-) || (%n.l > 66)) return Invalid | if (%n.1 == 0) return Zero
  while (%n.c <= %n.l) { var %n.s = $n.4($mid(%n.1,$calc(%n.l - %n.c -1),3)), %n.p = $calc(%n.l - %n.c) | if (%n.p isnum 0-2) { var %n.s = $n.4($left(%n.1,$calc(%n.p +1))) } | var %n.o = %n.s $n.6(%n.c,%n.s) %n.o | inc %n.c 3 } | return %n.o
}
alias n.1 if ($1 isnum 1-9) return $replace($1,1,One,2,Two,3,Three,4,Four,5,Five,6,Six,7,Seven,8,Eight,9,Nine)
alias n.2 { if ($1 isnum -12) return $replace($1,10,Ten,11,Eleven,12,Twelve) | return $replace($right($1,1),3,Thir,4,Four,5,Fif,6,Six,7,Seven,8,Eigh,9,Nine) $+ teen }
alias n.3 if ($1 isnum 1-9) return $replace($1,2,Twenty,3,Thirty,4,Fourty,5,Fifty,6,Sixty,7,Seventy,8,Eighty,9,Ninety)
alias n.4 { var %n.l = $len($1), %n.1 = $iif(%n.l == 3,$left($1,1)), %n.2 = $iif(%n.l > 1,$mid($1,$calc(%n.l -1),1)), %n.3 = $right($1,1) | return $iif(%n.1,$n.1(%n.1) Hundred) $iif(%n.2 == 1,$n.2(%n.2 $+ %n.3),$n.5($n.3(%n.2),$n.1(%n.3))) }
alias n.5 { if (($1) && ($2)) return $+($1,-,$2) | return $1 $2 }
alias n.6 { if (($1 > 1) && ($2)) { if ($1 == 4) return Thousand | return $replace($1,10,B,13,Tr,16,Quadr,19,Quint,22,Sext,25,Sept,28,Oct,31,Non,34,Dec,37,Undec,40,Duodec,43,Tredec,46,Quattuordec,49,Quindec,52,Sexdec,55,Septendec,58,Octodec,61,Novemdec,64,Vigint,7,M) $+ illion } }
alias n.7 return $$1

on *:text:.numconv *:#scripting:msg #scripting Numconv: $+([,$$2-,]) Result: $+([,$numconv($eval($2-)),])