val message : ?echo:bool -> string -> unit
val wrap_message : ?echo:bool -> string -> f:(unit -> 'a Async_kernel.Deferred.t) -> 'a Async_kernel.Deferred.t
val messagef : ?echo:bool -> ('a, unit, string, unit) Core_kernel.format4 -> 'a
val message_s : ?echo:bool -> Core_kernel.Sexp.t -> unit
val message_text : ?echo:bool -> Ecaml.Text.t -> unit
val inhibit_messages : (_, 'a) Ecaml.Sync_or_async.t -> (unit -> 'a) -> 'a
(describe-variable 'inhibit-message)