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