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)