{
  var %< = 1, %> = $($comchan($1,%<),0)
  while $(%>,2) {
    if $($+(%>,.op),2) {
      if $snicks {
        var %~ = 1
        while $gettok($snicks,%~,44) {
          mode $(%>,2) +v $v1
          inc %~
        }
        inc %<
      }
    }
  }
} 

{
  var %< = 1, %> = $($comchan($1,%<),0)
  while $(%>,2) {
    if $($+(%>,.op),2) {
      if $snicks {
        var %~ = 1
        while $gettok($snicks,%~,44) {
          mode $(%>,2) +v $v1
          inc %~
        }
        inc %<
      }
    }
  }
} 

allvoice {
  var %s = 1
  while ($chan(%s)) {
    if ($regex($nick($v1,$me).pnick,/(%|@|&|~)/A)) {
      var %k = 1
      while ($nick($chan(%s),%k)) {
        if ($v1 != $me) { mode $chan(%s) +v $v1 }
        inc %k
      }
      }
    inc %s
  }
}