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