[Pharo-project] Fun query: get the most referenced classes

|d s| d := Dictionary new. CompiledMethod allInstances do: [:cm| (cm literals select: [:l| l isKindOf: LookupKey]) do: [:assoc| |key| key := assoc key. key ifNotNil: [d at: key put: ((d at: assoc key ifAbsentPut: [0]) + 1)]]]. s := SortedCollection sortBlock: [:assoc1 :assoc2| assoc1 value > assoc2 value]. d associationsDo: [:a| s add: a]. s inspect