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