1
2(define randrects
3  (lambda (n rmax lmax)
4    (let
5      ((x (random lmax)) (y (random lmax))
6       (fill (random 2))
7       (a (+ (/ rmax 2) (random (/ rmax 2))))
8       (b (+ (/ rmax 2) (random (/ rmax 2)))))
9      (draw-color
10        (random 256)
11        (random 256)
12        (random 256))
13      (draw-move x y)
14      ((if (zero? fill) draw-rect fill-rect) a b)
15      (if (not (zero? n))
16        (randrects (- n 1) rmax lmax)))))
17
18(randrects 25 60 250)
19