#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((A (point '1cm 0))
         (B (rotate 72 A))
         (C (rotate 72 B))
         (D (rotate 72 C))
         (E (rotate 72 D)))
    (draw (op-- A B C D E 'cycle))))