light_source{<3, 3, -1> rgb 5}

#macro F(V) 
  S(N - 1, R / 2, V) 
#end

#macro S(N,R,T)
  #if(N)
    union
    {
      sphere{<0, 0, 0> R}
      F( y * R)
      F(-y * R)
      F( x * R)
      F(-x * R)
      F( z * R)
      F(-z * R)
      translate T * 1.5 
      pigment{rgb z}
      finish{phong .8}
    }
  #else 
    sphere{<0, 0, 0> R}
  #end
#end 

union{S(5, 1, 0) rotate y * 74 translate z * 6}