let to_path path ~content =
  try
    let home = Sys.getenv_opt "HOME" in
    let path =
      match home with
      | Some home -> Str.replace_first (Str.regexp "~") home path
      | None -> path
    in
    let oc = open_out path in
    Printf.fprintf oc "%s\n" content;
    close_out oc;
    "Successfully wrote to " ^ path
  with
  | exn -> "Failed to write to path: " ^ Printexc.to_string exn