#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (draw (point 0 0 ) #:withpen (scale '4bp 'pencircle)))