lapply try