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