f <- function(x){
  if(x%%2==0){
    res <- "even"
  }else{
    res <- "odd"
  }
  return(res)
}