let
make_expr x ~orig = { pexp_t = x; pexp_pr = { p_loc = orig.expr_pr.ctt_loc } }