|ci boundCount comCount conCount dataCount dpCount degCount entCount empCount factCount largeCount lazyCount minEntCount pcCount smallCount classstereotypes a|
boundCount := 0. 
comCount := 0. 
conCount := 0. 
dataCount := 0. 
dpCount := 0. 
degCount := 0. 
entCount := 0.
empCount := 0. 
factCount := 0. 
largeCount := 0. 
lazyCount := 0. 
minEntCount := 0. 
pcCount := 0. 
smallCount := 0.
ci := CGIdentifier new.
1 to: 10 do: [ :element| 
ci targetClass: Smalltalk globals allClasses atRandom.
classstereotypes := ci getClassStereotype .

classstereotypes do:[ :value|
	(value = 'Boundary') ifTrue:[ 
		boundCount  := (boundCount +1) ]
	ifFalse:[
		(value = 'Commander') ifTrue:[ 
		comCount  := (comCount  +1) ]
	ifFalse:[ 
		(value = 'Controller') ifTrue:[ 
		conCount := (conCount +1) ]
	ifFalse:[
		(value = 'Data') ifTrue:[ 
		dataCount := (dataCount +1) ]
	ifFalse:[
		(value = 'DataProvider') ifTrue:[ 
		dpCount  := (dpCount +1) ]
	ifFalse:[
		(value = 'Degenerate') ifTrue:[ 
		degCount  := (degCount  +1) ]
	ifFalse:[
		(value ='Entity') ifTrue:[ 
		entCount  := (entCount  +1) ]
	ifFalse:[
		(value = 'Factory') ifTrue:[ 
		factCount := (factCount  +1) ]
	ifFalse:[
		(value ='Large') ifTrue:[ 
		largeCount := (largeCount  +1) ]
	ifFalse:[
		(value = 'Lazy') ifTrue:[ 
		lazyCount := (lazyCount  +1) ]
	ifFalse:[
		(value = 'MinimalEntity') ifTrue:[ 
		minEntCount := (minEntCount  +1) ]
	ifFalse:[
		(value = 'PureController') ifTrue:[ 
		pcCount  := (pcCount +1) ]
	ifFalse:[
		(value = 'Small') ifTrue:[ 
		smallCount  := (smallCount  +1) ]
	]]]]]]]]]]]]].
].




a := Array new: 14.
a at:1 put: boundCount .
a at:2 put: comCount .
a at:3 put: conCount .
a at:4 put: dataCount  .
a at:5 put: dpCount .
a at:6 put: degCount.
a at:7 put: entCount  .
a at:8 put: empCount   .
a at:9 put: factCount.
a at:10 put: largeCount.
a at:11 put: lazyCount.
a at:12 put: minEntCount.
a at:13 put: pcCount.
a at:14 put: smallCount.

^a