let sum 0
for {let i 0} {< i 1000000} {set i (+ i 1)} {
	set sum (+ sum i)
}

println sum