Someone

alias devoiceall {
  set %cnick 1
  unset %cnicks
  while (%cnick <= $nick($chan,0)) {
    if ($nick($chan,%cnick) isvoice $chan) {
      set %cnicks %cnicks $nick($chan,%cnick)
    }
    inc %cnick
  }
  $iif($numtok(%cnicks,32) > 0, mode $chan -vvvvvvvv $gettok(%cnicks,1-8,32))
  $iif($numtok(%cnicks,32) > 8, mode $chan -vvvvvvvv $gettok(%cnicks,9-16,32))
  $iif($numtok(%cnicks,32) > 16, mode $chan -vvvvvvvv $gettok(%cnicks,17-24,32))
  $iif($numtok(%cnicks,32) > 24, mode $chan -vvvvvvvv $gettok(%cnicks,25-32,32))
  $iif($numtok(%cnicks,32) > 32, mode $chan -vvvvvvvv $gettok(%cnicks,33-40,32))
  $iif($numtok(%cnicks,32) > 40, mode $chan -vvvvvvvv $gettok(%cnicks,41-48,32))
  $iif($numtok(%cnicks,32) > 48, mode $chan -vvvvvvvv $gettok(%cnicks,49-56,32))
  $iif($numtok(%cnicks,32) > 56, mode $chan -vvvvvvvv $gettok(%cnicks,57-64,32))
  $iif($numtok(%cnicks,32) > 64, mode $chan -vvvvvvvv $gettok(%cnicks,65-72,32))
  $iif($numtok(%cnicks,32) > 72, mode $chan -vvvvvvvv $gettok(%cnicks,73-80,32))
  $iif($numtok(%cnicks,32) > 80, mode $chan -vvvvvvvv $gettok(%cnicks,81-88,32))
  $iif($numtok(%cnicks,32) > 88, mode $chan -vvvvvvvv $gettok(%cnicks,89-96,32))
}