anchor.diff:  								(setf blobs (append blobs (list 1)))
   								(setf (nth (aref array i j) blobs) (+ (nth (aref array i j) blobs) 1))))))))) blobs)
   
  +(defun sum-l (l)
  +   (apply '+ l))
  +
  +(defun avg-l (l)
  +   (float (/ (sum-l l) (length l))))
  +
  +(defun max-l (l)
  +   (apply 'max l))
  +
  +(defun min-l (l)
  +   (apply 'min l))
  +
   (defun label (image)
   	(setf img (load-painting image))
   	(sum-components (label-components img) img))
  
positive.code: 	)
  
  (defun l ()
  	(load 'fa.lisp))
  
negative.code: 										(multiple-value-bind (r1 g1 b1)
  											(pixel img (first f) (second f))
  											(declare (type (unsigned-byte 8) r1 g1 b1))
                                      (setf v r1)
  												(if (not (eq r1 _r)) (setf neighbors (+ neighbors 1))))))
  							(multiple-value-bind (r g b)
  								(pixel img2 i j)
  								(declare (type (unsigned-byte 8) r g b))
                             (if (> neighbors 0)
     									(setf (pixel img2 i j)
     										(values v v v)))))))))))
  
  ;; Perform a threasholding operation on the image
  (defun threashold-image (img amount)
  