module type CHRONOLOGICAL_MAP =sig
..end
type
t
type
set
type
elt
typeday =
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