Sourceval set_info :
Date.t optionref->float optionref->(float * float) optionref->(string
* [> `Float of float| `Int of int| `List of [> `Float of float| `Int of int ] list| `String of string| `Tuple of [> `Float of float| `Int of int ] list ])->
unit