(define (teste p1)
  (let* ((lst (nova-lista))
         (linha (linha-pos p1))
         (coluna (coluna-pos p1))
         (a (- linha 1))
         (b (+ linha 1))
         (c (- coluna 1))
         (d (+ coluna 1)))
    (cond ((< a 0) (insere (faz-pos 1 coluna) lst))
          ((= b 8) (insere (faz-pos 6 coluna) lst))
          ((< c 0) (insere (faz-pos linha 1) lst))
          ((= d 8) (insere (faz-pos linha 6) lst))
          (else (begin
                  (insere (faz-pos linha c) lst)
                  (insere (faz-pos linha d) lst)
                  (insere (faz-pos a coluna) lst)
                  (insere (faz-pos b coluna) lst))))))