anchor.diff:  	 (setf sumaux soma) (if (and (<= sumaux valor) (>= (- 9 nzeros) valor)) T ))))
   	 
   	fun
  -	))	
  +	)
  +)	
   
   (defun fill-a-pix->psr (arr)
   	(let (
  
positive.code: ; 70916
  
  ;;(compile-file "exemplos.lisp")    
  (load "exemplos.fas")       
  
  
  
  
negative.code: 				(setf listadevars (append listadevars (list (write-to-string cont))))
  				
  				(if (not (equal NIL (aref arr i j) ))
  				    (setf listaderestr
  				          (append listaderestr
  				                    (list (cria-restricao (GetNeighboursOfArrayCell aux i j)
  				                                          (CriaPredicado aux i j)
                                            )
                                      )
                            )
                      )
  				)
  				(incf cont)
  			)
  