anchor.diff:                                      itempos)))
                  (incf rankcount)))))
   
  -       (defun )
          ))))
   
   (defpsmacro mock-opinions (quantity)
  
positive.code:             (collect end))
            (sort (lambda (a b) (- a b)))))
  
         (defun %overlap-p (start1 end1 start2 end2)
           (not (or (> start1 end2) (> start2 end1))))
  
         (defun %make-segments (text opins)
           (collecting
             (let ((segpoints (excerpt-segment-points
                               (collecting (dolist (op opins) (collect (@ op 0))))
  
negative.code:                                                   (/ (lisp *opin-box-height*)
                                                       (lisp *minimum-space*))))
           (let* ((div (chain -math (floor (/ number rankmax))))
                  (mod (rem number rankmax))
                  (ranks (+ div (if (< 0 mod) 1 0)))
                  (ranksize (chain -math (floor (/ number ranks))))
                  (longranks (rem number ranks)))
             (collecting
               (dotimes (i (- ranks longranks))
                 (collect ranksize))
  