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