/bme {
  Var %x = 1, %y = $Chan(0)
  Var %z = #help.irc #crew.irc
  While (%x <= %y) {
    If ($Chan(%x) !isin %z) {
      /describe $Chan(%x) $$1-
    }
    Inc %x
  }
}