alias id {
  var %y $2
  while (%y <= $3) {
    if ($mid($1,%y,1) != $chr(32)) { var %t %t $+ $v1 }
    else { var %t %t $v1 }
    inc %y
  }
  return %t
}