let write_to_file file content =
  Lwt_io.with_file ~mode:Output file
  (fun oc -> Lwt_io.fprintf oc "%s\n" content)