anchor.diff:                (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)))
  
positive.code: (cl:defpackage #:sykosomatic.parser
    (:use :cl :alexandria :smug)
    (:export :parse-input))
  (cl:in-package #:sykosomatic.parser)
  
  (defun parse-input (actor input)
    (let ((result (car (invoke-parser (maybe (dialogue) 'error) input))))
      (cond ((typep result 'error)
             (sykosomatic::send-msg actor (list "parse-error" (princ-to-string result))))
            (t
  
negative.code: 
  ;; verb = existing verb
  (defun verb ()
    (=let* ((text (text (alpha-char))))
      (if (verbp text)
          (result text)
          (fail :error (format nil "'~A' is not a verb." text)))))
  
  ;; article = satisfies articlep
  (defun article ()
  