0. #lang racket
1.  
2. (define (list-nth-mod xs n)
3.     (car (list-tail xs (+ 1 (remainder n (length(xs)))))))
4.  
5.  
6. (define xs (list 0 1 2 3 4 5))
7. (define n 3)
8. (println (list-nth-mod xs n))

=>

application: not a procedure;

expected a procedure that can be applied to arguments

given: '(0 1 2 3 4 5)

arguments...: [none]