let file_of_string ~file s =
  let oc = open_out file in
  output_string oc s;
  close_out oc