How can one pass a local variable in a function as default to a nested one in R?

Question

Example:

test_fn1 <- function(b,passed=pass){
b*passed}

test_fn2 <- function(a){
pass=10;
print(test_fn1(a))}

test_fn2(2)

It can\'t find