on $*:text:/^[.!@]user(s|list)$/Si:#:{ 
  if ($nick isop $chan) {  
    var %i,%x,%nicks
    set %i 1 
    set %x $nick($chan,0)
    while (%i <= %x) { 
      if ($nick($chan,%i) isvoice $chan) { 
        set %nicks %nicks $nick($chan,%i) 14-07
      }
      inc %i 
    } 
    notice $nick 14Voices on07 $chan $+ 14:07 $left(%nicks,-4)
  } 
}