toby

alias test {
  ;echo -a $len($1-)
  ;if (c isin $chan($chan).mode) { halt }
  ;else {
  var %i = 1
  while (%i < $len($1-)) {
    echo -a $num %i
    inc %i
  }
}
unset %i
}
alias num {
set %q $r(1,16)
if (%q == 16) { return $chr(2) t }
else { return $chr(3) $+ %q t }
unset %q
}