identity2 <- function(x, ret) {
  ret(x)
}