alias cool {
  var %x 1
  while ($mid($1-, $+ %x $+ ,1) isnum || $mid($1-, $+ %x $+ ) isletter) {
    var %let %let $+ $mid($1-, $+ %x $+ ,1) $+ $chr(124)
    if ($mid($1-, $+ %x $+ ,1) == $chr(32)) {
      var %let %let $+ -
      inc %x
    }
  }
  msg $chan %let
}
error msg * /set: line too long (line 47, script23.mrc)
line 47 is    var %let %let $+ $mid($1-, $+ %x $+ ,1) $+ $chr(124)