let file_of_value name s =
  let oc = open_out_bin name in
  output_value oc s;
  close_out oc