anchor.diff:  (defun parse-noun-phrase (token-list)
     "Parses a TOKEN-LIST into a LIST representing a NOUN PHRASE.
   MULTIPLE RETURN VALUES: NOUN-PHRASE and REST of the TOKEN-LIST."
  -  ;; noun-phrase =  pronoun
  -  ;; noun-phrase =/ [article] cardinal [adjective] noun
  -  ;; noun-phrase =/ [article] [ordinal] [adjective] \
  -  ;;                (noun / possessive noun-phrase)
  -  ;;
     (let ((noun nil)
   	(adjectives nil)
   	(belongs-to nil))
  
positive.code: 	  (let ((parse-tree (parse-string current-input)))
  	    (format t "~%AST Generated: ~A~%" parse-tree))
  	  (test-the-parser)))))
  
  
negative.code: ;; possessive-noun = satisfies possessive-p (['s] or [s'])
  ;; conjunction = satisfies conjunction-p (i.e. "and" "&" "," etc.)
  ;;
  ;; Goal AST - (verb noun-clause adverb-list chat-string)
  ;; -----------Where NOUN-CLAUSE is (preposition noun-phrase noun-phrase)
  ;; -----------Where NOUN-PHRASE is (list-of-objects)
  
  (defun parse-string (string)
    "Parses a STRING that was entered by PLAYER and returns an Abstract Syntax Tree"
    (parse-sentence (string->token-list string)))
  
  (defun parse-sentence (token-list)
    "Uses a TOKEN-LIST to generate an AST"
    (let ((verb nil)
  	(noun-clause nil)
  	(adverb-1 nil)
  