sig type lock_operation = LOCK_SH | LOCK_EX | LOCK_UN val flock : ?nonblocking:bool -> Unix.file_descr -> Flock.lock_operation -> unit end