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