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