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