Someone

alias sweep {
  var %f = 1
  while (%f <= $nick($chan,0)) {
    if ($nick($chan,%f) isreg $chan) {
      kick $chan $nick($chan,%f) -v sweep
      inc %f
    }
    else inc %f
  }
}