sig
  type data = CtrlDpds.Computer.t
  val clear : unit -> unit
  val mem : int -> bool
  val find : int -> CtrlDpds.State.t
  val replace : int -> CtrlDpds.State.t -> unit
  val add : int -> CtrlDpds.State.t -> unit
  val iter : (int -> CtrlDpds.State.t -> unit) -> unit
  val length : unit -> int
end