let
to_string =
function
|
`
int i
->
string_of_int i
|
`
string s
->
s