alias slapreg {
  var %k = 1
  while (%k <= $nick($chan,0)) {
  if ($nick($chan,%k) isreg $chan) {
    var %slaps = %slaps $nick($chan,%k)
    inc %k
    }
    else inc %k 
  }
  describe $chan slaps %slaps
}