anchor.diff:    (find maybe-adverb '("handsomely" "cleverly" "fascetiously") :test #'string-equal))
   
   (defun verbp (maybe-verb)
  -  (string= maybe-verb "get"))
  +  (or (string= maybe-verb "smiles")
  +      (string= maybe-verb "frowns")
  +      (string= maybe-verb "laughs")
  +      (string= maybe-verb "cries")
  +      (string= maybe-verb "waves")))
  
positive.code: 
  ;; input = dialogue / action
  (defun input ()
    (=or (dialogue)
         #+nil(action)))
  
  ;; ws = zero or more whitespace
  (defun ws ()
  
negative.code:               (map nil (rcurry #'sykosomatic::send-dialogue actor
                                 (cdr (assoc :dialogue (cdr result)))
                                 (cdr (assoc :parenthetical (cdr result))))
                     (sykosomatic::local-actors actor)))
               (:sentence
                (map nil (rcurry #'sykosomatic::send-action actor
                                 (sentence->text (cdr result)))
                     (sykosomatic::local-actors actor))))))))
  
  (defun sentence->text (sentence)
    (format nil "~A." (cdr (assoc :verb sentence))))
  
  (defun invoke-parser (parser string)
    (mapcar #'car (funcall parser string)))
  