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