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