type logger
=
{
log : a. int ‑> ((('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 ‑> 'a) ‑> unit) ‑> unit;
}
val level_ : int Pervasives.ref
val set_level : int ‑> unit
val debug_fmt_ : Format.formatter
val start : float
val default_logger : logger
val log_ : logger Pervasives.ref
val log : int ‑> string ‑> unit
val logf : int ‑> ((('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 ‑> 'a) ‑> unit) ‑> unit
val set_logger : logger ‑> unit