Nested_function <- function(x, y) { a <- x + y return(a) } Nested_function(Nested_function(2, 2), Nested_function(3, 3))