Sourceval buffer_add_json :
Buffer.t->([< `Array of 'a list| `Bool of bool| `Float of float| `Null| `Object of (String.t * 'a) list| `String of String.t ]as 'a)->
unit
Sourceval to_string :
([< `Array of 'a list| `Bool of bool| `Float of float| `Null| `Object of (String.t * 'a) list| `String of String.t ]as 'a)->
string