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