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