0. #lang racket
1. (define lst
2.   (cons 'apple 42))
3.  
4. lst
5. (rest lst)
6. (pair? lst)
7. (list? lst)

=>

'(apple . 42)

rest: contract violation

expected: (and/c list? (not/c empty?))

given: '(apple . 42)

#t

#f