anchor.diff:     (format t "Edge thinning (long process)~%")
      (edge-thin img)
   
  +   (format t "labelling ~%")
  +   (setf img (colourise-components img))
  +   ;(format t "K-means clustering~%")
  +   ;(format t "~S~%" (k-means-cluster-image-pixels img 2))
  +
      (format t "Writing to file~%")
      (write-image img output)) ; output the image for now
   
  
positive.code:                         (if (> r amount) (setf v 255) (setf v 0))
                          (setf (pixel img i j)
                             (values v v v))))))))))
  ;; Sums an array
  ; https://faculty.washington.edu/ikalet/courses/lisp/code/arrays.cl
  (defun add-all-elements (arr)
  
negative.code:                (loop for i below height do
                    (loop for j below width do
                       (setf c 0)
                       (setf v 255)
                       (setf empty nil)
                       (dolist (f (multiple-value-list-remove-nulls (8-neighbors img i j)))
  