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