I'm more worried about this part.
[ 10000 timesRepeat: [ | c |
�� �� �� �� �� �� �� �� c�� := OrderedCollection new.
�� �� �� �� �� �� �� �� c add: 1.
�� �� �� �� �� �� �� �� ��2 to: 10000 do: [ :i |
�� �� �� �� �� �� �� �� �� �� �� �� c add: i beforeIndex: (c atRandom) ] ] ] timeToRun "5 min. 30 s."
Stephan