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