let parse_int file = int_of_string (input_line (open_in file))