function void main[var arga,var argb]
(
	var m:=10;
	var a:Int :: allocated[multiple[]];
	var p;
	par p from 0 to m - 1
	(
		var mine:Int; 
		mine:= randomnumber[0,toInt[argb#1]];
		var i;
		for i from 0 to m - 1
		(
			var myvalue:=mine;
			if (i < p) myvalue:=0;			
			(a :: reduce[i, "sum"]):=myvalue;
		);		
		print[p," = ",a,"\n"];
	);
);