Use `dolist'
Fix the infloop with zero-length prefix