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