#lang racket (require (planet wcy/mpost-wrapper)) (provide main) (define (main) (draw (path (point 0 0) (dir-spec (dir 90)) ".." (point '2cm 0) (dir-spec (dir 0)))))