#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (draw (op-- (point '-1.5cm 0) (point '1.5cm 0))))