anchor.diff:  ;; noun ::= any unknown token, can be used later.
   ;; ----------------------------------------------
   ;; The goal AST:
  -;; ("verb" (adverbs) (rest-of-predicate) "chat-string"))
  +;; ("verb" (rest-of-predicate) adverbs "chat-string"))
   ;; where (rest-of-predicate) is (noun-phrase-1 preposition noun-phrase-2)
   ;; where (noun-phrase) is (noun (modifiers))
   ;;
  
positive.code:   (assoc string *verbs* :test #'string-equal))
  
  (defun chat-string-p (string)
    (if (not (null string))
        (char-equal #\' (char string 0))))
   
  
negative.code:       (format nil "'~a" chat-string)
        nil))
  
  (defun string->token-list (string)
    "Converts a STRING into a LIST of TOKEN-STRINGS."
    (let* ((com+chat (split-off-chat-string string))
  	 (commands (split-command-string (car com+chat))))
      (if (cadr com+chat)
  	(let ((chat-string (format-chat-string (cadr com+chat))))
  	  (append commands (list chat-string)))
  	commands)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;~~~~~~~~~~~~~~~~~~~~ Parser ~~~~~~~~~~~~~~~~~~;;
  