0. #lang racket
1.  
2. (define (everynth n x l)
3.   (if (= x n)
4.       (cons (car l) (everynth n 1 (cdr l)))
5.       (everynth n (+ x 1) (cdr l))
6.   )
7. )
8.  
9. (everynth 3 1 (list 1 2 3 4 5 6 7))

=>

cdr: contract violation

expected: pair?

given: '()