Json.To
val list : ('a -> 'b) -> 'a list -> [> `List of 'b list ]
val literal_field : string -> string -> ('a -> t) -> 'a -> t
val int_pair : ('a * 'a) -> [> `List of [> `Int of 'a ] list ]