open Random;; let main () = print_string "Guess a number between 1 and 100\n"; Random.self_init (); let number = (Random.int 99) + 1 in let times = ref 0 in let rec try_guess () = print_string "your guess: "; flush stdout; let guess = int_of_string (input_line stdin) in times := !times + 1; if guess = number then print_string ("It did take you " ^ (string_of_int !times) ^ " tries to find the number.\n") else (if guess > number then print_string "Number is smaller\n" else print_string "Number is bigger\n"; try_guess ()) in try_guess ();; main ();;