>data := Dictionary new.
>
>Object withAllSubclasses do: [:each | data at: each subclasses size put: 
>(data at: each subclasses size ifAbsent: [0]) + 1]
>
>data inspect

TerseMan says, just print...

(Object withAllSubclasses asArray collect: [:each | each subclasses size])
	asBag sortedElements