anchor.diff:          (largerIndex '()))
       (dolist (i lastList (list largerNum largerIndex))
         (if (> (car i) thisNum)
  -          (progn (incf largerNum)
  +          (progn ;(print i)
  +            (incf largerNum)
                   (setf largerIndex (append largerIndex (list (cadr i))))
             )))))
   
  
positive.code:        (loop for c from 0 to (1- colNum) do
              (progn ;(print (change-index-to-string r c))
                (setf (gethash (change-index-to-string r c) indexHash)
                  (how-many-larger (do-around 'find-ele *matrix* r c))))))
      indexHash))
  
  (defun sum-list (list)
  
negative.code:         (colNum (length (car matrix))))
      (loop for r from 0 to (1- rowNum) do
           (loop for c from 0 to (1- colNum) do
                  (setf resultList (append resultList (list (sum-list
                                                             (tree-search-matrix indexTable r c)))))))
      (return-from main (max-list resultList))))
  