> myfunction <- function(){

+? ?x <- rnorm(100)

+? ?mean(x)

+ }