A classic programming exercise in Common Lisp.