#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 C E B D 'cycle))))