sig type t val stdout : Log.Blocking.Output.t val stderr : Log.Blocking.Output.t val create : (Log.Message.t -> unit) -> Log.Blocking.Output.t end