proc EJL_mergeAbs(){
string $sel[] = `ls -sl`;
int $size = `size($sel)`;

if ($size != 2) {
error "EJL Says: You must select two objects.\n";
}

string $obj1[] = `polyUnite -ch 1 $sel[0] $sel[1]`;
select -r $obj1[0];
polyMergeVertex -d .0001 -am 1 -ch 1 $obj1[0];
select -cl;
select -r $obj1[0];
DeleteHistory;

print ("EJL Says: I combined & merged ---> " + $sel[0] + " with " + $sel[1] + ". The new object is ---> " + $obj1[0] + ".\n");
}