f <- function(x) {
  message("a string")
  x+1
}