val verbosity : [ `High | `Low | `Suppress_warnings_and_errors ] Core.ref
val set_verbosity : [ `High | `Low | `Suppress_warnings_and_errors ] ‑> unit
val print_high : ('a, Pervasives.out_channel, unit) Pervasives.format ‑> 'a
val print_low : ('a, Pervasives.out_channel, unit) Pervasives.format ‑> 'a
val should_suppress : unit ‑> bool