let
sexp_of_t t =
Core_string
.sexp_of_t (to_string t)