default
{

    touch_start(integer total_number)
    {
        list userNames;
        list sortedAgents = llListSort(llGetAgentList(AGENT_LIST_PARCEL , []),1, TRUE);

        integer index = llGetListLength(sortedAgents);
        while (index--){
            userNames += llGetUsername(llList2Key(sortedAgents, index));
        }
        userNames = llListSort(userNames, 1, TRUE);

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