New xml funtion using lapply