Sourceval to_value :
t->[> `Structure of
(string
* [> `Structure of
(string
* [> `Structure of
(string
* [> `Integer of Integer.t| `Structure of
(string
* [> `Integer of Integer.t| `String of String_.t| `Structure of
(string * [> `Integer of Integer.t ]) list ])
list ])
list ])
list ])
list ]