0. #lang racket
1.  
2. (define l (make-list 5000 'x))
3.  
4. (time (for ((i 100)) (memq l 'y)))
5.  
6. (time (for ((i 100)) (member l 'y)))

=>

memq: not a proper list: 'y

member: not a proper list: 'y