good mel script site  http://www.rodgreen.com/?p=117    in case he delete it one day  ///////////////////////////////////////////////    // Copyright (C) 2008 Rod Green // All rights reserved. // // Website: http://www.rodgreen.com  // ---------- Global variables  global string $pointerObjString = "objectPointerMessage";  // ---------- Utility procedures  global proc string padInt(int $inputInt, int $length)  {   if($length < 1) return "";   string $returnString = $inputInt;   for($i = size($returnString); $i < $length; $i++) $returnString = ("0" + $returnString);   return $returnString;  }   global proc string[] getSelection()  {   return (ls("-selection", "-long", "-flatten"));  }   global proc string renameLong(string $object, string $newName)  {   return longNameOf(rename($object, $newName));  }    global proc string newTransform(string $name)  {   string $transformObj = createNode("-skipSelect", "-nam...