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