translations := OrderedCollection new.
translations addAll: (TranslatedReceiverFinder new stringReceiversWithContext: #translated).
translations addAll: (TranslatedReceiverFinder new stringReceiversWithContext: #translatedNoop).
EToyVocabulary allPhrasesWithContextToTranslate do: [:r|
	r fourth do: [:literal| translations add: (MethodReference new setStandardClass: r second methodSymbol: r third) -> nil]
	].

dict := Dictionary new.

translations do: [:each| | category |
	category := ((Smalltalk organization categoryOfElement: each key classSymbol) subStrings: {$-}) first .
	(dict includesKey: category) ifFalse: [dict at: category put: 0].
	dict at: category put: (dict at: category) + 1.
].

(dict associations asSortedCollection: [:a :b | a value > b value]) explore.
