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