clean {
  var %n = 1
  while (%n <= $nick($chan,0)) {
    if ($nick($chan,%n) isop $chan) {
      mode $chan -hv $nick($chan,%n) $nick($chan,%n)
    }
    elseif ($nick($chan,%n) !isop $chan) && ($nick($chan,%n) ishop $chan) {
      mode $chan -v $nick($chan,%n)
    }
    inc %n
  }
}