apply lapply() function