let t_of_sexp x = of_string (Core_string.t_of_sexp x)