oc := OrderedCollection new.
	1 to: 10000 do: [ :i |
		oc add: (( String new: 40 ) atAllPut: $X )].

	[ lfStr := 10 asCharacter asString.
	oc2 := OrderedCollection new.
	oc do: [ :str |
		oc2 addLast: str;
			addLast: lfStr ].
	oc2 removeLast.
	oc2 asOneString ] timeToRun 391 402 375     38 40 37    4 3 4 4

	oc := OrderedCollection new.
	1 to: 1000 do: [ :i |
		oc add: (( String new: 40 ) atAllPut: $X )].

	[ stream := ReadWriteStream on: ( String new: 45000 ).
	oc do: [ :str |
		stream nextPutAll: str;
			cr ].
	stream contents ] timeToRun    301 255 246 251     25 25 28    4 3 4 4

					100		1000			10000
	Stream  	3-4		25-28		246-301
	OC			 	3-4		37-40		375-402