> (load "lisp07.lisp")
;; Loading file lisp07.lisp ...
;; Loading of file lisp07.lisp is finished.
T                                             
> (load "lisp07-03.lisp")
;; Loading file lisp07-03.lisp ...
;; Loading of file lisp07-03.lisp is finished.
T
> (load "lisp07-05.lisp")
;; Loading file lisp07-05.lisp ...
;; Loading of file lisp07-05.lisp is finished.
T 
> (load "lisp07-06.lisp")
;; Loading file lisp07-06.lisp ...
;; Loading of file lisp07-06.lisp is finished.
T
> (load "lisp07-07.lisp")
;; Loading file lisp07-07.lisp ...
;; Loading of file lisp07-07.lisp is finished.
T  
> (load "lisp07-08.lisp")
;; Loading file lisp07-08.lisp ...
;; Loading of file lisp07-08.lisp is finished.
T  
> (generate 'sentence)
(A WOMAN HIT A WOMAN)
> (generate 'sentence)
(A WOMAN SAW THE BALL)
> (trace generate rule-lhs rule-rhs rewrites)
;; Tracing function GENERATE.
;; Tracing function RULE-LHS.
;; Tracing function RULE-RHS.
;; Tracing function REWRITES.
(GENERATE RULE-LHS RULE-RHS REWRITES)
>