(for-each display
 '(#\( #\" #\' #\a #\space #\b #\tab #\c #\)))

;;; from comp.lang.scheme

(let ((x (list 1)) (y (list 2)))
  (for-each display
    (list "Before: " "x = " (car x) " and y = " (car y) 
    #\newline))
  (set-car! (if #t x y) 3.1415)
  (for-each display
    (list "After: " "x = " (car x) " and y = " (car y) 
    #\newline)))