alias hlit {
  var %i 1
  while (%i <= $nick($chan,0,hvo)) {
    if ($nick($chan,%i,vho) != wind) {
      var %k = %k $nick($chan,%i,vho) $+ $chr(44)
    }
    else { noop
    }
    inc %i
  }
  if (%k) { msg + $+ $chan %k }
}