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