anchor.diff:  						(cond
   							(
   								(and
  -									(membro var-natribuida (restricao-variaveis i))
  -									(not(membro (cons var-natribuida var) result))
  +									(my-member var-natribuida (restricao-variaveis i))
  +									(not(my-member (cons var-natribuida var) result))
   								)
   									(setf
   										result
   										(append
   											result
  -											(list (cons var-natribuida var)))
  +											(list (cons var-natribuida var))
  +										)
   									)
   							)
   						)
  
positive.code: ; Francisco Maria Calisto
  ; 70916
  
  
  
  ; ======================================================================================= ;
  ;                                             NOTAS                                       ;
  ; ======================================================================================= ;
  
  ;; Test using "clisp -i tipos_de_dados.lisp -i exemplos.lisp < test01/input" by RZL
  
  
  
  
  ; ======================================================================================= ;
  ;                                             LOAD                                        ;
  
negative.code: )
  
  
  ; TURNS FILL-A-PIX TO PSR 
  
  (defun fill-a-pix->psr (arr)
  	(let
  		(
  