elements2 <- list(1,2,3,4,5)
cubes <- sapply(elements2, cube)