carambola <- c("abacaxi", "beterraba")
salada <- c"beringela", "batata"