examples/ex-73.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let ((p (path (point '5mm '-5mm) (dir-spec 'right) '..
                 (point '2cm 0))))
    (for ((n (in-range 10)))
         (draw (rotate (* 10 n) p)))))