alias format {
  unset %result
  var %srl = 1
  while (%srl <= $numtok($1,32)) {
    var %srl2 = 1
    :repeat
    var %tok = $gettok($1,%srl,32)
    if (($left(%tok,%srl2) isnum) && ($right(%tok,$calc($len(%tok) - %srl2)) isalpha)) {
      set %result %result $left(%tok,%srl2) $right(%tok,$calc($len(%tok) - %srl2))
      inc %srl
    }
    else {
      inc %srl2
      goto repeat
    }
  }
  return %result
}