let
logfd = open_out_gen [
Open_append
;
Open_creat
] 0o644 !log_filepath