module Main where

import Graphics.Rendering.Diagrams

main = renderAs PNG "lambda.png" (Width 120) dia

dia = pad 10 10 $ unionA left bottom [topcurve,legcurve]
    where
        topcurve = curved 1 $ pathFromVertices [(0,0),(2,0),(8,10),(10,10)]
        legcurve = curved 1 $ pathFromVertices [(5,5),(2,10),(0,10)]