subst substitute function for list (subst2 new old L)