try lapply