Domain.DLS
type 'a key
val new_key : ?split_from_parent:('a -> 'a) -> (unit -> 'a) -> 'a key
val get : 'a key -> 'a
val set : 'a key -> 'a -> unit