let sexp_of_t t = let s = I.to_string t in Sexplib.Sexp.Atom (match !sexp_of_int_style with | `Underscores -> insert_underscores s | `No_underscores -> s)