f <- function (x,y=1) { x + y/z }
z <- 2
x <- f(3)
y <- f(x,z)
z<- f(y,x)
x <- f(1)
print(x)