In R, using substitute in multiple function calls

Question

foo <- function(arg) {
  substitute(arg)
}

foo1 <- function(parm) {
  foo(param)
}
foo1(2 + 2)

output i