(define (adjoin-position new-row k rest-of-queens)  
  (append (list new-row) rest-of-queens))

(define (safe? t position)
  (define (iter first k rest)
    (cond
      ((null? rest) #t)
      ((or (= first (car rest))
           (= (+ first k) (car rest))
           (= (- first k) (car rest)))
       #f)      
      (else (iter first (+ k 1) (cdr rest)))))
  ;(if (= t 1) #t
      (iter (car position) 1 (cdr position)))
(define empty-board '())
#| END |#