(let ((counter 3))
  (defun closure1 ()
    (+ 4 counter))
  (defun closure2 ()
    (+ 7 counter)))

(deftest test-closures()
  (check
   (equalp '(7 10 7 10) 
	   (list (closure1) (closure2) (closure1) (closure2)))))