sig
  type t
  val open_out : ?set_type:string -> string -> Dosebase.Out.t
  val close_out : Dosebase.Out.t -> unit
  val add_package :
    Dosebase.Out.t ->
    archive:string ->
    day:Lifetime.day -> (string * string * string list) list -> unit
  val rebuild_index : string -> unit
end