examples/ex-74.rkt
#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let ((p  (fullcircle '5mm))
        (x (point '1mm '2mm)))
    (for ((n (in-range 1 5)))
         (draw (xscale n p)))))