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