sig   type level = [ `Debug | `Error | `Info | `Warning ]   type t = {     quiet : bool;     info : bool;     debug : bool;     ignore_plugins : bool;     ignore_unknown_fields : bool;     printf : OASISContext.level -> string -> unit;   }   val default : OASISContext.t Pervasives.ref   val fspecs :     unit -> (string * Arg.spec * string) list * (unit -> OASISContext.t)   val quiet : OASISContext.t end