Unnamed

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