stdin := File standardInput
secret := Random value(1, 100) round
tries := 10
n := nil
newdiff := nil
diff := nil

"Guess the secret number between 1 and 100 :D" println

while (n != secret and tries > 0,
	write("You have ", tries, " tries left\nNumber? > ")
	n = stdin readLine asNumber

	newdiff = (secret - n) abs
	if (diff isNil) then (
		diff = newdiff
	) else (
		if (newdiff < diff, "Hotter", "Colder") println
		diff = newdiff
	)

	"" println
	tries = tries - 1
)

if (n == secret, "Correct!", "Epic fail!") println