define i = 0, d = 0

do

	let i = i + 1
	let d = i * i
	print d

loop d < 100

pause
end