Exercise 1.30 in Common Lisp
Exercise 1.30 in Emacs Lisp