initialize
   super initialize.
   shapes := OrderedCollection new.

 set: obj
   shapes add: obj.

 surface
   | sum |
   sum := 0.
   shapes do: [:obj | sum := sum + obj surface].
   ^ sum.

 volume
   ^ shapes inject: 0 into: [:sum :obj | sum + obj volume].