anchor.diff:            (_ (=and (=char #\') (maybe (=char #\s)))))
       (result (cons :possessive name))))
   
  +(defun word ()
  +  (text (=or (alpha-char) (=char #\-))))
   ;;;
   ;;; Word identifiers
   ;;;
  
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: ;; parenthetical =/ "@" name
  (defun parenthetical ()
    (=or (=let* ((_ (=char #\@))
                 (name (word)))
           (result `(:parenthetical . ,(concatenate 'string "to " name))))
         (=let* ((_ (=char #\())
                 (content (=or (to/at-someone) (adverb)))
  