let to_path path ~content =
  let oc = open_out path in
  Printf.fprintf oc "%s" content;
  close_out oc