sig   val debug : ('a, unit, string, unit) Pervasives.format4 -> 'a   val info : ('a, unit, string, unit) Pervasives.format4 -> 'a   val warning : ('a, unit, string, unit) Pervasives.format4 -> 'a   val error : ('a, unit, string, unit) Pervasives.format4 -> 'a end