anchor.diff:                                     (eql (prop last-char-pos)
                                           (+ (@ focussed 0 text-position 0)
                                              (@ focussed 0 text-position 1) 1)))
  -                          (psx (:div "thing")))))))
  +                          (psx (:opinion :opinions focussed
  +                                         :focus (prop focus))))))))
   
          (defun %make-segments (text opins focus)
            (collecting
  
positive.code:                      (-1 "-") (0 "o") (1 "+")))
                 (:flag-display :flag (prop opinion flag))))))
  
         (defun %make-sway-func (weight)
           ;;For now, just a parabola
           (lambda (i)
  
negative.code:          (dolist (o opins)
             (when (eql (@ o 0 id) (@ focus-spec 0))
               (return o))))
  
         ;;Find all the indices where excerpts start or stop.
         (defun excerpt-segment-points (opset end)
           (chain
  