I used Cone to cut off the top, not a box.
difference{
sphere{<0,0,4>,4}
sphere{<0,0,4>,3.75}
cone{<0,0,4>,0,<0,0,12>,8}
}
Then there was some calculations done to place a TORUS so it replaced the flat edge created by the cone difference with a half of a torus.