Miscellany

alias allchans {
  set %allchans.i 1
  var %allchans.str

  while (%allchans.i <= $chan(0)) {
    set %allchans.str %allchans.str $+ $chan(%allchans.i) $+ ,
    inc %allchans.i
  }

  return -a $mid(%allchans.str, 0, $calc($len(%allchans.str) - 1))
}