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