val json_of_float : float ->[> `Float of float| `Int of int ]
val json_of_yaml :
Yaml.t->[> `Assoc of (string * 'a) list| `Bool of bool| `Float of float| `Int of int| `Null| `String of string| `Tuple of 'a list ]as 'a
val yaml_parser :
string ->[> `Assoc of (string * 'a) list| `Bool of bool| `Float of float| `Int of int| `Null| `String of string| `Tuple of 'a list ]as 'a
val yaml_of_json :
([< `Assoc of (string * 'a) list| `Bool of bool| `Float of float| `Int of int| `Null| `String of string| `Tuple of 'a list ]as 'a)->Yaml.t