Parser Code Continued: IO

(defun do-parse (sentence &key (start-symbol 's) (verbose T))

(parse :start-symbol start-symbol

:sentence sentence

:verbose verbose

:print verbose))

(do-parse '(fred carefully recycles the heavy red rock))

(S (1 (NP

(1 (NOUN (ROOT FRED)))))

(2 (VP

(1 (ADV (ROOT CARE)))

(2 (VERB (ROOT RECYCLE)))))

(3 (NP (1 (DET (ROOT THE)))

(2 (OPT-ADJS

(1 (ADJ (ROOT HEAVY)))

(2 (OPT-ADJS

(1 (ADJ (ROOT RED)))

(2 (OPT-ADJS))))))

(3 (NOUN (ROOT ROCK))))))