let highest_number () =
  Random.self_init ();
  for i = 1 to max_int do
    try
      ignore (Random.int i)
    with
      Invalid_argument _ -> print_endline (string_of_int i)
  done