#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let ((u '1cm))
    (draw (path (polar u  90) (dir-spec (dir 0))    '..
                (polar u  -150) (dir-spec (dir 120))  '..
                (polar u  -30 ) (dir-spec (dir -120))  '..
                'cycle))))