let
open_out_safe = open_out_gen [
Open_wronly
;
Open_creat
;
Open_excl
;
Open_text
] 0o666