Something

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
}