let
deserialize_exn s =
Yojson
.
Safe
.from_string s |> of_json_exn