f <- function(a) {
  s <- a
  s
}