lect -all;
delete;
  
global proc CRsphere ( float $numSpheres,  float $startRad,  float $endRad)
{
    float $shift = 0;
  
    float $increment = ($startRad - $endRad) / $numSpheres;
    
    float $radSphere = $startRad;
  
    for ($n = 0; $n<=$numSpheres ; $n++)
    {
        polySphere -r $radSphere; 
        move 0 ($radSphere +($shift*2)) 0;
        $shift = $shift + $radSphere;  
        $radSphere = $radSphere - $increment;
    
    }
}
  
CRsphere (10, 10 ,1);