alias numconv {
  %i = 1
  %c = ,
  %z = $gettok($1,1,32)
  %z = $remove(%z,%c)
  if %z == $null return $null
  if (%z !isnum) || %z < 0 { return Invalid }
  if %z < 1 return Zero
  %z = $gettok(%z,1,46)
  if $len(%z) > 66 return Invalid

  while %z {
    %y = $right(%z,3)
    %z = $left(%z,-3)
    if %y < 1 { inc %i 3 | continue }

    %j = 1
    while %y != $null {
      %x = $right(%y,1)
      %y = $left(%y,-1)

      if 3 // %i && %x != 0 a hundred
      if %i = 4 a thousand
      if %i = 7 a må
      if %i = 10 a bå
      if %i = 13 a trå
      if %i = 16 a quadrå
      if %i = 19 a quintå
      if %i = 22 a sextå
      if %i = 25 a septå
      if %i = 28 a octå
      if %i = 31 a nonå
      if %i = 34 a äå
      if %i = 37 a unäå
      if %i = 40 a duoäå
      if %i = 43 a treäå
      if %i = 46 a quattuoräå
      if %i = 49 a quinäå
      if %i = 52 a sexäå
      if %i = 55 a septenäå
      if %i = 58 a octoäå
      if %i = 61 a novemäå
      if %i = 64 a vigintå

      if %j = 1 || %j = 3 {
        if %x = 0 a 0
        if %x = 1 a one
        if %x = 2 a two
        if %x = 3 a three
        if %x = 4 a four
        if %x = 5 a five
        if %x = 6 a six
        if %x = 7 a seven
        if %x = 8 a eight
        if %x = 9 a nine
      }
      elseif %j = 2 {
        if %x = 1 b 1
        if %x = 2 b twenø
        if %x = 3 b thirø
        if %x = 4 b forø
        if %x = 5 b fifø
        if %x = 6 b sixø
        if %x = 7 b sevenø
        if %x = 8 b eighø
        if %x = 9 b nineø
      }

      inc %i
      inc %j
    }

  }
  return $remove($replace(%r,10,ten,1one,eleven,1two,twelve,1three,thiræ,1four,fouræ,1five,fifæ,1six,sixæ,1seven,sevenæ,1eight,eighæ,1nine,nineæ,å,illion,ä,dec,æ,teen,ø,ty-),-0,0)
}

alias a %r = $1 %r
alias b %r = $1 $+ %r