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