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