on *:text:!liste:#:{
  /set -n %list 1
  while (%list <= $nick($chan,0)) { /notice $nick $nick($chan,%list) }
  /inc %list
}

on *:text:!names *:#:{
  VAR %i = $nick($2,0), %return
  while (%i) {
    addtok(%return,$nick($2,%i))
    dec %i
  }
  msg $chan Names on $2 are: %return
}