GLMCompositePresentation new 
	with: [ :composite |
		composite roassal2 
			initializeView: [ RTGrapher new ];
			painting: [ :b :array |
				| ds |
				ds := RTData new.
				ds barShape.
				ds points: array.
				b add: ds ];
			send: [ :number | number * number ] ];
	startOn: #(5 6 10 20 3)