say_hello <- function(name) {
  paste0("Hello, ", name, "!")
}