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

ame {
  var %x = 1
  while (%x <= $chan(0)) {
    $iif($chan(%x) != #idle,describe $chan(%x) $1-)
    inc %x
  }
}