#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let ((pic-1 (new-picture
                (lambda ()
                  (let ((p1 (fullcircle '1cm))
                        (p2 (fullcircle '5mm)))
                    (draw p1)
                    (draw (shift (polar '1cm 45) p2))
                    (draw (shift (polar '1cm 135) p2)))))))
    (for ((a (in-list (list (point 0 0)
                            (point '1mm '1mm)
                            (point '2mm '2mm)))))
         (draw (shift a pic-1)))))