let
file_of_value name s =
let
oc = open_out_bin name
in
output_value oc s;
close_out oc