global proc renameWithFilename()
{
string $mySelection[] = `ls -sl -exactType "file"`;

for($n=0 ; $n<size($mySelection) ; $n++)
{
	string $filename = `getAttr ($mySelection[$n] + ".ftn")`;
	string $buffer[];
	$numTokens = `tokenize $filename "/" $buffer`;
	int $filenameMaxNum = `size($buffer)`;
	string $nameBuffer[];
	$numTokensToo = `tokenize $buffer[($filenameMaxNum - 1)] "." $nameBuffer`;
	rename $mySelection[$n] $nameBuffer[0];
	}
}