| b ds myCollection aBlock|

aBlock := 
[:n |	|rule wrongBranches|
wrongBranches := (25 to: 45) inject: 24 asCharacter asParser into: [:acc :each | acc / each asCharacter asParser].
rule := PPDelegateParser new.
rule setParser: $a asParser / ((wrongBranches / $. asParser), rule).
rule parse: (String  streamContents: [ :s | 
	30000 * n timesRepeat: [s nextPut: $.]. s nextPut: $a ])
].

myCollection := (1 to: 7) collect: [:n | n -> [aBlock value: n] timeToRun asMilliSeconds].



points1 := #(639 1150 1720 2387 3046 3535 4039).
points2 := #(319 320 421 634 752 976 1256).

b := RTGrapherBuilder new.
b extent: 300 @ 200.

ds1 := RTStackedDataSet new.
ds1 points: points1.
ds1 barShape width: 8; 
	      color: (Color red).
ds1 stackX.
b add: ds1.

ds2 := RTStackedDataSet new.
ds2 points: points2.
ds2 barShape width: 8; 
	      color: (Color green).
ds2 y: #yourself" min: minY max: maxY".

ds2 stackX.
b add: ds2.

b axisXNoLabel; axisY.

b build.
^ b view