gdd:newObject
"add the argument, anObject to the receiver n :«= contents at:nevObject ifAbeent: [0} contenta at:nevObject put: (n «■ 1).
* newObject