sig
  type 'a t
  type id = string
  exception Element_exists of Wd_interactor.id
  val create : 'a -> 'a Wd_interactor.t
  val clear : 'a Wd_interactor.t -> unit
  val add :
    'a Wd_interactor.t ->
    string -> string -> Wd_interactor.id option -> 'a -> Wd_interactor.id
  val lookup : 'a Wd_interactor.t -> Wd_interactor.id -> string * string * 'a
  val exists : 'a Wd_interactor.t -> string -> string -> bool
  val iter :
    (Wd_interactor.id -> string -> string -> 'a -> 'b) ->
    'a Wd_interactor.t -> unit
  val serialize : ('a -> string) -> Buffer.t -> 'a Wd_interactor.t -> unit
  val unserialize :
    (('a, 'b, 'c) Wd_serialize_types.poly_ds_buf -> 'd) ->
    ('a, 'b, 'c) Wd_serialize_types.poly_ds_buf -> 'd Wd_interactor.t
  val revision_interactor : string
end