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