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
