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