anchor.diff:  ;; parenthetical =/ "@" name
   (defun parenthetical ()
     (=or (=let* ((_ (=char #\@))
  -               (name (text (alpha-char))))
  +               (name (word)))
            (result `(:parenthetical . ,(concatenate 'string "to " name))))
          (=let* ((_ (=char #\())
                  (content (=or (to/at-someone) (adverb)))
  
positive.code:   (=let* ((at/to (=or (=string "at")
                        (=string "to")))
            (_ (ws))
            (target-name (text (alpha-char))))
      (result `(:at/to . ,(concatenate 'string at/to " " target-name)))))
  
  ;; adverb = word that satisfies adverbp
  
negative.code:           (_ (=and (=char #\') (maybe (=char #\s)))))
      (result (cons :possessive name))))
  
  (defun word ()
    (text (=or (alpha-char) (=char #\-))))
  ;;;
  ;;; Word identifiers
  ;;;
  