Redo problem #1 in Common Lisp