val to_yaml' :
t->(string
* [> `O of
(string
* [> `A of
[> `O of
(string
* [> `A of
[> `O of (string * [> `String of string ]) list ]
list| `O of
(string * [> `Float of float| `String of string ])
list| `String of string ])
list ]
list ])
list ])
list
val of_yaml : Yaml.value ->(t, [ `Msg of string ])Stdlib.result