let sexp sexp_of_t t = s (sexp_of_t t |> Sexplib.Sexp.to_string)