anchor.diff:  
   ; PRE-PROCESS ZEROS AND NINES
   
  -; Pre-Process the Zeros and Nines using the aux functions created for it.
  +; Pre-Process the Zeros and Nines using the auxiliar functions created for it.
   
   (defun PreProcessZerosAndNines (arr psr)
   	(let ( (lista1 (car (GetNinesAndZeros arr)))
  
positive.code: 
  ; PRE-PROCESS CORNERS
  
  ; Process the Array Corners using the GetNeighboursOfArrayCell function to
  ; calculate the position of the corner.
  
  (defun PreProcessCorners (arr)
  	(let
  
negative.code: ; PROCURA RETROCESSO FC MRV
  
  ; This search choose as the first variable to be chosen by the one that has the
  ; smallest domain.
  ; If more than one variable has minimum domain it will be chosen the one to appear as
  ; first in the list of unassigned variables.
  ;
  ; The function as it is, is a backtracking search using Forward Checking mechanism 
  ; and MRV (Minimum Remaining Value) Heuristic onto the PSR.
  
  (defun procura-retrocesso-fc-mrv (psr)
  	(let ((testesTotais 0) (res nil) (res1 nil) (var nil) (inf nil))
  