#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (draw (apply
         op.. 
         `(,@(for/list ((i (in-range 0 361 10)))
                     (op* '2cm (point (sind (* 2 i))
                                      (cosd (* 3 i)))))
           cycle))))