$rule_1
$rule_1[[1]]
[1] "fn <- function(x) {\n  x + 1\n}"


