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