anchor.diff:  	  (NIL NIL NIL 7 NIL NIL NIL 7 NIL 5)
   	  (NIL 4 NIL NIL 6 NIL 6 NIL 5 NIL))))
   	  
  -(setf e4 (make-array (list 10 10) :initial-contents
  +(defparameter e4 (make-array (list 10 10) :initial-contents
   	'((3 NIL NIL 2 2 0 2 2 NIL NIL)
   	  (4 NIL 6 NIL NIL 1 NIL NIL 6 4)
   	  (NIL NIL 6 NIL NIL NIL 5 6 NIL NIL)
  
positive.code: 	  (NIL NIL 5 NIL NIL 4 NIL 4 NIL 5 NIL 5 NIL NIL NIL))))
  	  
  ;; depois deste ja nao tive paciencia para mais...
  (setf e7 (make-array (list 20 20) :initial-contents
  	'((4 NIL NIL 6 NIL NIL NIL 6 NIL NIL 4 NIL 4 NIL NIL 1 NIL NIL 3 NIL)
  	  (NIL NIL 9 NIL 8 NIL 9 8 NIL NIL NIL NIL NIL 2 2 NIL 6 NIL NIL 3)
  	  (6 NIL NIL NIL NIL 7 7 NIL NIL 2 NIL 1 2 NIL 2 4 6 8 NIL 4)
  
negative.code: 	  (4 NIL NIL NIL 4 3 NIL 3 3 NIL)
  	  (NIL 4 NIL 3 NIL NIL 2 NIL NIL NIL))))
  	  
  (defparameter e5 (make-array (list 15 15) :initial-contents
  	'((0 NIL NIL 4 3 2 1 NIL NIL NIL NIL NIL 3 NIL NIL)
  	  (NIL NIL 5 NIL NIL 4 NIL NIL 4 4 NIL NIL NIL NIL 3)
  	  (NIL 5 4 5 4 5 5 NIL 5 3 NIL 1 2 NIL 3)
  