question on speed of lappply