sig
  type 'a t
  val get : 'a CCLock.LockRef.t -> 'a
  val set : 'a CCLock.LockRef.t -> 'a -> unit
  val update : 'a CCLock.LockRef.t -> ('a -> 'a) -> unit
end