'begin'
	'comment'
		create some random numbers, print them and
		print the average.
	;

	'integer' NN;

	NN := 20;

	'begin'
		'integer' i;
		'real' sum;

		vprint ("random numbers:");

		sum := 0;
		'for' i := 1 'step' 1 'until' NN 'do' 'begin'
			'real' x;
			x := rand;
			sum := sum + x;
			vprint (i, x)
		'end';
	
		vprint ("average is:", sum / NN)
	'end'
'end'
