let open_out_append path = open_out_gen [Open_wronly; Open_creat ; Open_append; Open_text] 0o666 path