examples/ex-119.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (draw (apply op-- 
               `(,@(for/list ((i (in-range 4)))
                             (rotate (* i 90) (op* '1cm 'right)))
                 cycle))))