anchor.diff:                         (setf noun it))
                      (return-from parse-noun-phrase
                        (values `(:noun-phrase
  -                               . ((:noun . ,noun)
  +                               . ((:article . ,article)
  +                                  (:noun . ,noun)
                                     (:adjectives . ,adjs)
                                     (:amount . ,amount)
                                     (:ordinality . ,ordinality)
  
positive.code:             (cond ((null it)
                     (error 'parser-error :text "What? All done?"))
                    ((articlep it)
                     (setf state :numerical))
                    (t
                     (push it token-list)
  
negative.code: 
  (defun parse-noun-phrase (token-list)
    (let ((state :pronoun)
          article noun adjs amount ordinality owns)
      (loop
         (case state
           (:pronoun
  