Something

on $*:text:!/^[!@]users/Si:#:{
  var %way = $iif($left($1,1) == @,msg $chan,notice $nick)
  var %k = 1
  while (%k <= $nick($chan,0)) {
    var %tusers = $iif(%tusers,%tusers) $nick($chan,%k) 
    inc %k
  }
  %way Total: $nick($chan,0) $+ , Users: %tusers
}