f10 {
  var %f = 1 | while %f <= $chan(0) {
    if $regex($nick($chan(%f),$me).pnick,/[%@&.~]/) {
      mode $chan(%f) -f
    }
    inc %f
  }
}