1 2 3(for-each display 4 '(#\( #\" #\' #\a #\space #\b #\tab #\c #\))) 5 6;;; from comp.lang.scheme 7 8(let ((x (list 1)) (y (list 2))) 9 (for-each display 10 (list "Before: " "x = " (car x) " and y = " (car y) 11 #\newline)) 12 (set-car! (if #t x y) 3.1415) 13 (for-each display 14 (list "After: " "x = " (car x) " and y = " (car y) 15 #\newline))) 16