let
file_of_string ~file s =
let
oc = open_out file
in
output_string oc s;
close_out oc