sig
  type t
  type set = Package_set.t
  type elt = Package_ID.id
  type day = int
  val io : t Io.literate
  val create : unit -> t
  val iter : (day -> set -> unit) -> t -> unit
  val range : t -> day * day
  val get : t -> day -> set
  val add : t -> day -> day -> set -> unit
end