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)