(define quoted? (lambda (exp) (and (pair? exp) (eq? (car exp) 'quote)))) (let ([exp '(cons a b)]) (quoted? (cadr exp))) (let ([exp '(cons 'a b)]) (quoted? (cadr exp))) (quoted? 'x) (quoted? ''x) (let* ([a (read)][b (read)]) (map quoted? (list a b)))