Anonymous

amsg {
  var %x = 1
  while (%x <= $chan(0)) {
    if ($chan(%x) != #idle) {
      msg $chan(%x) $1-
      inc %x } {
      elseif ($chan(%x) == #idle) {
        inc %x
      }
    }
  }
}