1 2 3 4 5 6 7 8 9 10 11
(include *standard-cl-23*) (export E) (export F) (export G) (export H) (defun D (X) (* X 2)) (defun E (X) (* X 3)) (defun F (X) (E (+ X 1))) (defun G (X) (E (D X))) (defconst H E)