Mine

alias minusdiv2 {
  var %i 1
  while (%i <= $nick($$1,0)) {
    if ($nick($$1, %i ) !isop $$1) {
      mode $$1 -o $nick($$1, %i )
    }
    inc %i
  }
}