{
//Lists the transform nodes of all selected objects in the scene
string $nodes[] = `ls -selection`;
for ($node in $nodes)
{
//From each transform node, obtain its shape node and print its name
string $shapes[] = `listRelatives -shapes $node`;
select -r $shapes[0];
}
}