anchor.diff:  (defun join-substring-words (str)
     (loop with sticky = (find-sticky-positions str)
          with suffix-map = (get-suffix-map str)
  +       and slice = (make-slice)
          for start from 0 below (length str)
          unless (member start sticky)
          nconcing 
  
positive.code:                                  (when (>= (segment-score segment) *score-cutoff*) (list segment))))
                               (let ((*suffix-map-temp* suffix-map)
                                     (*suffix-next-end* end))
                                 (find-word-full (subseq str start end))))))
                (when segments
                  (list (make-segment-list :segments (cull-segments segments)
                                           :start start :end end)))))))
  
negative.code:                       (lambda (word)
                          (gen-score (make-segment :start start :end end :word word)
                                     (= end (length str))))
                        (find-word (subseq-slice slice str start end))))))
  
  (defparameter *identical-word-score-cutoff* 1/2)
  
  