smaltalk sort

	|hoge|
	hoge :=  array collect: [ :elem |
		| dict |
		dict := Dictionary new.
		dict at: #base put: elem.
		dict at: #translated put: (self trans: elem).
		dict
	].

	hoge := hoge asOrderedCollection
	 sorted: [:a :b |
		self halt.
		(a at: #translated) < (b at: #translated)
	].

	hoge := hoge collect: [ :elem | 
		elem at: #base.
	].