Mine

alias numus {
  var %i = 1

  set %usernum $nick( $chan,0 )
  msg $chan Users on $chan $+ : $+ 
  while ( %i <= %usernum ) {
    msg $chan $nick( $chan,%i )$+ ,
    inc %i
  } 

}