sig
  type t
  val lock_shared : Core_unix.Flock_command.t
  val lock_exclusive : Core_unix.Flock_command.t
  val unlock : Core_unix.Flock_command.t
end