1 2(define l1 (list-n 500)) 3 4(define access-list 5 (lambda (l n) 6 (if (zero? n) l 7 (access-list (cdr l) (- n 1))))) 8(set-cdr! (access-list l1 250) '()) 9 10(define l2 (list-n 500)) 11 12(define vectors 13 (lambda (mx) 14 (map (lambda (n) (make-vector n n)) 15 (list-n mx)))) 16 17(vectors 100) 18 19(list-n 1000) 20 21(vectors 200) 22 23 24