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: 
  ;; action-delimiter = "*"
  (defun action-delimiter ()
    (=char #\*))
  
  ;; sentence = [adverb ws] verb [ws noun-clause] [ws noun-clause] [ws adverb]
  (defun sentence ()
    (=let* ((adverb1 (maybe (=prog1 (adverb) (ws))))
            (verb (verb))
            (noun-clause-1 (maybe (=and (ws) (noun-clause))))
            (noun-clause-2 (maybe (=and (ws) (noun-clause))))
            (adverb2 (maybe (=and (ws) (adverb)))))
      (result `(:sentence
                (:adverb1 . ,adverb1)
                (:verb . ,verb)
  
negative.code: 
  ;; input = dialogue / action
  (defun input ()
    (=or (action)
         (dialogue)))
  
  ;; ws = zero or more whitespace
  (defun ws ()
  