+ (build-patches patches))
+
+(define (build-patches patches)
+ (define* (get-points n #:optional (l '()))
+ (cond ((> n 0)
+ (get-points (- n 1) (cons n l)))
+ (else
+ l)))
+
+ (let ((sa (* (random:exp) 2 pi))
+ (points (get-points (* 8 patches))))
+ (display points)
+ (newline)))