Shapes subclass: #Accumulator
   instanceVariableNames: 'shapes'
   classVariableNames: ''
   category: 'Shapes'