#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (for ((i (in-range 4)))
       (draw (rotate (* i 90) (op* '1cm 'right))
             #:withpen (scale '4bp 'pencircle))))