#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '1cm)
         (n 7)
         (A0 (point u 0))
         (An (map (lambda (i) (rotate (/ (* 360 i) n)
                                      A0))
                  (stream->list (in-range n)))))
    (for ((Ai (in-list An)))
         (draw Ai #:withpen (scale '4bp 'pencircle)))
    (for* ((i (in-range n))
           (j (in-range n)))
          (when (not (= i j))
            (draw (op-- (list-ref An i)
                        (list-ref An j)))))))