let sexp_of_t sexp_of_k t = sexp_of_list sexp_of_k (to_list t)