sig   val init : ?conf:Odig.Conf.t -> unit -> unit   val announce : unit -> unit end