|ci acCount colCount conCount degCount factCount getCount mutCount setCount methodstereotypes a|
acCount := 0.
colCount := 0.
conCount := 0.
degCount := 0.
factCount := 0.
getCount := 0.
mutCount := 0.
setCount := 0.
ci := CGIdentifier new.
1 to: 20 do: [ :element| 
ci targetClass: Smalltalk globals allClasses atRandom.
methodstereotypes := ci getMethodStereotypes .
acCount := (acCount + ((ci accessors) size)).
colCount := (colCount + ((ci collaborators ) size)).
conCount :=(conCount + ((ci controllers) size)).
degCount := (degCount + ((ci degenerates) size)).
factCount := (factCount + ((ci factories) size)).
getCount := (getCount + ((ci get) size)).
mutCount := (mutCount + ((ci mutators) size)).
setCount := (setCount + ((ci set) size))].
a := Array new: 8.
a at:1 put: acCount .
a at:2 put: getCount .
a at:3 put: mutCount .
a at:4 put: setCount .
a at:5 put: colCount .
a at:6 put: conCount .
a at:7 put: factCount.
a at:8 put: degCount .
^a