Nested_function <- function(x, y) {

  a <- x + y

  return(a)

}

​

Nested_function(Nested_function(2, 2), Nested_function(3, 3))

​