let write_file f ~content =     let o = open_out f in     output_string o content;     close_out o