;;;
;;; Part III - modified by joe
;;;

(define a '(1 2 3))
(define b '(a b c))
(define c '(#t #f))
(define d '(4))
(define e '(7 #\a #t))

(define x (cons 10 a))
(define y (append a b))
(define z (list a c))

(set-car! a 99)
(set-car! b 'z)
(set-cdr! c '(9 10 11))
(set-cdr! d d)
(set-cdr! (cddr e) (cdr e))

(car d)
; 4
(cadr d)
; 4 
(caddr d)
; 4
(cadddr d)


(car e)
; 7
(cadr e)
; #\a 
(caddr e)
; #t
(cadddr e)
; #\a
(list-ref e 100)
; #t