sig val enable_collect : unit -> unit val disable_echo : unit -> unit val dump_messages : unit -> unit val iter : (int -> Log.event -> unit) -> unit val depend : State.t -> unit end