(deftest bryan-local-functions ()
  (labels ((add10 (x) (+ x 10))
	   (consa (x) (cons 'a x)))
    (check
      (= 15 (add10 5))
      (= 5 (add10 (- 5)))
      (samep "(A . 13)" (consa (add10 3)))
      (samep "(A A . 13)" (consa (consa (add10 3)))))))