(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)))