on *:TEXT:!check:#:{
  var %a = 1, %c
  while ($chan(%a)) {
    %c = $v1
    if ($nick(%c,0) <= 2) part %c
    inc %a
  }
}