let
constant_exp_of_int ~loc i =
make_expr_l (
PexpConstant
(
PconstInteger
(string_of_int i))) ~loc