let
mode = [
Unix
.
O_WRONLY
;
Unix
.
O_CREAT
;
Unix
.
O_TRUNC
;
Unix
.
O_APPEND
]