let value_of_file name = let ic = open_in_bin name in try let v = input_value ic in close_in ic; v with | e -> close_in ic; raise e