alias aamsg {
  var %a 1
  var %b 1
  var %found $false

  while (%a <= $chan(0)) {
    while (%b <= $numtok(%bad.channels, 32)) {
      if ($chan(%a) == $gettok(%bad.channels, %b, 32)) {
        var %found $true
      }
      inc %b 1
    }

    var %b 0

    if (%found == $false) {
      msg $chan(%a) $1-
    }

    var %found $false

    inc %a 1
  }
}