let mk_int_const value =
  new_exp
    ~loc:(CurrentLoc.get())
    (Const(
       CInt64(
         My_bigint.of_int (value),
         IInt,
         Some(string_of_int(value))
       )))