default
{

    touch_start(integer total_number)
    {
        list userNames;
        list sortedAgents = llGetAgentList(AGENT_LIST_PARCEL , []);
        integer index = llGetListLength(sortedAgents);

        while (index--){
            userNames += llGetUsername(llList2Key(sortedAgents, index));
        }

        userNames = llListSort(userNames, 1, TRUE);

        llOwnerSay(llDumpList2String(userNames, "\n"));
    }
}