The lisp LOOP macro is an excellent example of a DSL done right, in my opinion. It does exactly what you'd expect and allows you to write English sentences to solve problems.
I know that there are factions of lispers who are against it but I use it constantly.