a <- function(x) {
  warning("I warned you!!")
  x+1
}