Looping through Scripts in an Object

I would like to select all the scripts in an object, one at a time, by name.

For instance, how would I write a script that would llSay the names of each script in the object in turn?

default {
     state_entry() {
          integer x;
          integer total = llGetInventoryNumber(INVENTORY_SCRIPT);
          for (x = 0; x < total; x++) llOwnerSay(llGetInventoryName(INVENTORY_SCRIPT, x));
     }
}

I think that'll work.

same thing with a while loop instead of a for loop

default
{
    touch_start(integer total_number)
    {
        integer total = llGetInventoryNumber(INVENTORY_SCRIPT);
        integer x;
        while (x < total) 
        {
            llOwnerSay(llGetInventoryName(INVENTORY_SCRIPT,x) );
            ++x;
        }
    }
}