x <- 5
newfun <- function(a) {
  cat("hooray a!", a, "
")
}

newfun(1)