import Graphics.Plot

main
 = 	displayInWindow
		"a square"
		(500, 500)
		(20,  20)
		picture
	
picture = 
    [ Color blue 
        [ Polygon [(-100,-100), (-100,100), (100,100), (100,-100)] ]
    , Color aquamarine
        [ Transform 
            [ Translate (-80) (-10)
            , Scale     0.4   0.2 ]
	  [ Text "square" ]
	]
    ]