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