sig   type t =       [ `A of B0_json.t list       | `Bool of bool       | `Float of float       | `Null       | `O of (string * B0_json.t) list       | `String of string ]   val of_string : string -> B0_json.t B0.result   val to_string : B0_json.t -> string   val for_string : string -> string   module Q :     sig       type json = B0_json.t       type 'a t       val null : unit B0_json.Q.t       val nullable : 'B0_json.Q.t -> 'a option B0_json.Q.t       val bool : bool B0_json.Q.t       val int : int B0_json.Q.t       val float : float B0_json.Q.t       val string : string B0_json.Q.t       val array : 'B0_json.Q.t -> 'a list B0_json.Q.t       val mem :         string -> 'B0_json.Q.t -> ('-> 'b) B0_json.Q.t -> 'B0_json.Q.t       val mem_opt :         string ->         'B0_json.Q.t -> ('a option -> 'b) B0_json.Q.t -> 'B0_json.Q.t       val obj : '-> 'B0_json.Q.t       val get : '-> 'a       val sel : string -> 'B0_json.Q.t -> 'B0_json.Q.t       val json : B0_json.Q.json B0_json.Q.t       val query : 'B0_json.Q.t -> B0_json.Q.json -> 'B0.result     end   module G :     sig       type json = B0_json.t       type 'a seq       val empty : 'B0_json.G.seq       val ( ++ ) : 'B0_json.G.seq -> 'B0_json.G.seq -> 'B0_json.G.seq       type t       type mem       type el       val null : B0_json.G.t       val bool : bool -> B0_json.G.t       val int : int -> B0_json.G.t       val float : float -> B0_json.G.t       val string : string -> B0_json.G.t       val el : B0_json.G.t -> B0_json.G.el B0_json.G.seq       val el_if : bool -> (unit -> B0_json.G.t) -> B0_json.G.el B0_json.G.seq       val arr : B0_json.G.el B0_json.G.seq -> B0_json.G.t       val mem : string -> B0_json.G.t -> B0_json.G.mem B0_json.G.seq       val mem_if :         bool ->         string -> (unit -> B0_json.G.t) -> B0_json.G.mem B0_json.G.seq       val obj : B0_json.G.mem B0_json.G.seq -> B0_json.G.t       val of_json : B0_json.G.json -> B0_json.G.t       val to_string : B0_json.G.t -> string       val output : Pervasives.out_channel -> B0_json.G.t -> unit       val buffer_add : Buffer.t -> B0_json.G.t -> unit     end end