let sexp_of_int_style : [ `Underscores | `No_underscores ] ref =
  ref `No_underscores