print q("
	[ > [ Secret Number ] < ]
	[ > [ Guessing Game ] < ]

");
goto newgame;
newgame: {
	$secretnumber = int(1 + rand 100);
	goto retry;
	retry: {
		print "Please guess the secret number in the range of 1 & 100(use 999 to quit): ";
		chomp($guess = int(<STDIN>));
		if ($guess == 999) { end; }
		elsif ($guess != $secretnumber) {
			print "\nYour guess was...\n";
			if ($guess > $secretnumber) { 
				print "TOO HIGH!\n\n"; 
				goto retry; 
			}
			else { 
				print "TOO LOW!\n\n"; 
				goto retry; 
			}
		}
		else {
			print "\nYour guess was...\n";
			print "CORRECT!!\n";
			print "Starting New Game...\n\n";
			goto newgame;
		}
	}
}