//jpAutoCluster

string $selectToCluster[] = `ls -sl`;

cluster $selectToCluster;
string $clustName[] = `ls -sl`;
createNode locator;
pickWalk -d "up" -typ "nodes";
string $locName[] = `ls -sl`;

//place locator on top of cluster
select $clustName[0] $locName[0];
pointConstraint -n tempPoint -weight 1;
orientConstraint -n tempOrient -weight 1;
scaleConstraint -n tempScale -weight 1;

//cleanup
select tempPoint tempOrient tempScale;
delete;

parent $clustName[0] $locName[0];
select $locName[0];
FreezeTransformations;