examples/local-loop.ph


1
2
3
4
5
6
7
8
9
10
11
12

procedure SUM{num[int]} return int
var sum = 0
var idx = 0
is
	do
	    sum = sum + idx,
	    idx = idx + 1
	until idx = num,
	return sum
end procedure

print SUM(1000000001)