let
t_of_sexp x = of_string (
Core_string
.t_of_sexp x)