Module type Rapids.CHRONOLOGICAL_MAP

module type CHRONOLOGICAL_MAP = sig .. end

type t 

type set 

type elt 

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