chanusers {
  unset %nickcount

  set %i 1
  while ( %i < $nick($chan,0)) {
    inc %i 1
    if ( %i <= $nick($chan,0)) {
      set %nickcount %nickcount $nick($chan,%i)
    } 

  }
  msg $chan Users on $chan $+ : $nick($chan,0) $+ --Who are: %nickcount
  unset %nickcount
  unset %i
}