test2 <- function(n=10) rnorm(n)