alias kbusers {
  if $me isop $1 {
    var %_ = 1 | while $ulist(*,hmm,%_) {
      var %< = $v1
      if $fline($1,%<,0,1) > 0 {
        mode $1 +b %< | var %> = 1 | while $fline($1,%<,%>,1) {
          kick $1 $nick($1,$v1) out | inc %>
        }
      }
      inc %_
    }
  }
}
on *:op:#:if $opnick == $me { kbusers # }