anchor.diff:  	)
   
   (defun l ()
  -	(load 'fa.lisp))
  +   (load 'fa.lisp)
  +   (stats))
  +
  +(defun stats ()
  +   (setf blobs (label "output/scream.png"))
  +   (format t "Average size stroke ~S~%" (avg-l blobs))
  +   (format t "Minimum size stroke ~S~%" (min-l blobs))
  +   (format t "Maximum size stroke ~S~%" (max-l blobs))
  +   )
  
positive.code: 					(loop for i below height do
  						(loop for j below width do
  							(setf neighbors 0)
  							(setf v 0)
  							(dolist (f (multiple-value-list-remove-nulls (8-neighbors img i j)))
  									(multiple-value-bind (_r _g _b)
  										(pixel img i j)
  
negative.code: 								(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))
  