#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let ((n 5))
    (draw (apply op-- 
                 `(,@(for/list ((i (in-range n)))
                               (rotate (/ (* i 360) n) (op* '1cm 'up)))
                   cycle)))))