library(sketch)
rule_1 <- make_rule("pi", "Math.PI")
expr <- rlang::parse_expr("2 * (3 + pi)")
rule_1(expr) # this works but is not the preferred usage
rewrite(expr, list(rule_1)) # this is preferred
rule_2 <- make_rule("+", "Math.add")
rewrite(expr, list(rule_1, rule_2))