val message : string -> unit
val wrap_message : string -> f:(unit -> 'a) -> 'a
val messagef : ('a, unit, string, unit) Core_kernel.format4 -> 'a
val message_s : Core_kernel.Sexp.t -> unit
val inhibit_messages : (unit -> 'a) -> 'a
(describe-variable 'inhibit-message)