let open_out_append path = 
  open_out_gen [Open_wronlyOpen_creat ; Open_appendOpen_text] 0o666 path