number_to_guess := Random value(0, 100) floor
number_guessed := -1
last_number_guessed := -1
last_difference := -1
difference := -1
tries := 0

while (number_guessed != number_to_guess and tries < 10,
	last_number_guessed := number_guessed
	last_difference := difference

	writeln("Guess a number?")
	number_guessed := (File standardInput readLine asNumber)
	if (number_guessed == number_to_guess, break)

	if (number_guessed > number_to_guess,
		difference := number_guessed - number_to_guess,
		difference := number_to_guess - number_guessed)

	if (difference > last_difference and tries > 0, "colder!" println, if (tries > 0, "hotter!" println))

	tries := tries + 1

)

if (number_guessed == number_to_guess, "You did it!" println, "Loser!" println)