| k a |
k := Symbol allInstances.
a := k collect: [ :each | each asString hash ].
^Smalltalk at: #test put: a!

Smalltalk compact!

test asSortedCollection inject: [ :old :each |
	old > each ifTrue: [ old printNl. each printNl ]!