
(load "esp.lisp" :verbose nil :print nil ) 

(p *esp-sentence*) 

(setq result (generate)) 

(setq re2 (mapcar #'(lambda (x)  (car (cdr x))) result) )

(defun fred-print2(re2)
 
  (format t "~%---fred---")
  (mapcar #'(lambda (x)  
             (format t "~a " x) 
           )
      re2 ) 
  (format t "~%")
)

(fred-print2 re2)

;(with-open-file (out "/usr/tmp/fred.esp.tmp.output"
;                 :direction :output :if-exists :overwrite)
;     (format out "~%") 
;     (mapcar #'(lambda (x)  
;                (prin1 x out) (format out " ") 
;              )
;         re2 ) 
;     (format out "~%~%") 
;)

