Use dolist
Use save-current-buffer instead of save-excursion