rebol []
foreach x next load http://www.maxvessi.net/rebsite/fhc2011/input1.txt [
	cnt: 0
	y: to-integer square-root x
	while [y >= 0][
		if x > multiply 2 power y 2 [break]
		if zero? remainder square-root subtract x power y 2 1 [cnt: cnt + 1]
		y: y - 1
	]
	print cnt
]
ask "done"

foreach x next read/lines http://www.maxvessi.net/rebsite/fhc2011/input3.txt [
    print rejoin sort next parse x none
]

rebol []
foreach x next load http://www.maxvessi.net/rebsite/fhc2011/input1.txt [
	cnt: 0
	for y to-integer (x ** 0.5) to-integer ((x / 2) ** 0.5) -1 [
		if zero? remainder ((x - (y * y)) ** 0.5) 1 [cnt: cnt + 1]
	]
	print cnt
]
ask "done"