let sexp_of_char = Char.sexp_of_t