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

=>

+x: undefined;

cannot reference an identifier before its definition

in module: 'm