                   col-start-index col-end-index split-factor
                   lengths-v lengths-h)))
 
-            (push column-width column-widths)
             (incf total-width column-width)
             (incf total-width separator-length))
 

                                     ; not scientific
                                     :size n-items)))

    ; STEVE remove or return column-widths
    (do ((n-rows 2 (1+ n-rows))
         (column-widths '() '()))
        ((>= n-rows max-visible-rows)
         (values max-visible-rows t))
      (let ((col-start-index 0)

        (decf total-width separator-length)

        (when (<= total-width available-width)
          (return-from lusty--compute-optimal-row-count
            (values n-rows nil)))))))

(defun lusty--compute-column-width (start-index end-index split-factor
