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