alias clearbans {
  var %x 1 
  while ($ibl(#,%x)) {
    if (~c:* !iswm $ibl(#,%x)) {
      var %n %n $v2 
    } 
  inc %x }
  mode # - $+ $str(b,$modespl) %n
}
on *:TEXT:!clearban:#:{
  if ($nick isop $chan) {
    clearbans
  }
  else notice $nick Op only Command
}