alias j return $k($1,$2)
alias k return $iif($1 > 999,$j($left($1,-3),$calc($2 +1))) $($replace(&([ > 99,§j(§left([,1)) hundred §j(](",2)),&([ > 19,@(.°wö³thir³for³fif³six³s7³ü³ß³,§left([,-1),1) §+ §j(](",1)),@(one°wo°hree
four
five
six
s7
üt
ß°ö
el7°welve°hir_four_fif_six_s7_ü_ß_,[,1))) &([ > 0,@(thousand
m'b'tr'quadr'quint'sext'sept'oct'non'~'unäduoätreäquattuoräquinäsexäseptöäoctoänovemävigint',§2,1)),°,
t,ü,eigh,³,ty-
,_,teö
,ä,~',',illion
,~,dec,7,evö,ß,nine,[,](",3),],§right,@,§tokö,ö,en,&,§iif,",§1,§,$),2)
alias numconv return $($replace(&(~ ² || ' ²,&(µ(~),"),&(' = 0,Zero,&(µ(') < 68,*(§k('),-1,9,1,2),"))),µ,§len,',@(0 §+ ~,1,46),²,!isnum,~,*(@(§1,1,32),§chr(44)),@,§token,*,§remove,",Invalid,&,§iif,§,$),2)