// makeUnique
// v1.0beta
// March 3 2000
// Soren 'kurgan' Jacobsen
// kurgan@kurgan.dk  (suggestions/bugreports welcome)
// http://www.kurgan.dk/
// kurgan@kurgan.dk
// ICQ: 31301694
// mobile: +45 40971688

global proc makeUnique()
{
 string $selectedObjects[]= `ls -sl`;

 for ($current in $selectedObjects)
  {

   select $current;
   string $tmpName[]= `duplicate -un`;
   select $current;
   delete;
   rename $tmpName[0] $current;
 
  }





}