letters -> numbers

alias num {
  if ($remove($1-,$chr(32)) isalpha) {
    var %wordqu $0
    var %crword $gettok($1-,1,32)
    var %wordco 1
    :1
    var %letterco 1
    :2
    while (%wordco <= %wordqu) {
      var %wordexp %wordexp $calc($asc($mid($gettok($1-,%wordco,32),%letterco,1)) - $iif($gettok($1-,%wordco,32) islower,96,64))
      if (%letterco < $len($gettok($1-,%wordco,32))) {
        inc %letterco
        goto 2
      }
      else {
        msg $active %wordexp
        unset %wordexp
        inc %wordco
        goto 1
      }
    }
  }
}