St. Patrick's Day Challenge! Seeing as its St. Patrick's day, I thought I would have a little challenge

Your task is to write a program draws a clover in any way possible. Each leaf has to be symmetrical, and the user has to input the number of leaves that they want on the clover. It then must be drawn. This has to be generated. You cannot just load an image or have ASCII art saved as a variable. However using modules like turtle to generate (and draw is included under generate) are fine.

You can use any language. This is a code-golf so the shortest answer wins.

Begin! Happy St Patrick's Day!

Just for reference, here is an example of a 3 leaf clover 

Just for DavidCarraher
Mathematica - 106 bytes

c=RegionPlot[x^2+y^2&lt;Abs@Sin[#x~ArcTan~y/2]||x&gt;0&amp;&amp;y^2&lt;.001,{x,-1,1},{y,-1,1},Frame-&gt;0&gt;1,PlotStyle-&gt;Green]&amp;


Ungolfed version:

c[leaves_] := (
    angle = ArcTan[x,y];
    RegionPlot[
        x^2 + y^2 &lt; Abs[Sin[leaves*angle/2]]
        || x &gt; 0 &amp;&amp; y^2 &lt; .001
      , {x,-1,1}
      , {y,-1,1}
      , Frame -&gt; False, PlotStyle -&gt; Green
    ]);


Here are the outputs for c[3] through c[6].



At the cost of another 7 bytes you can improve the colour (using PlotStyle-&gt;Darker@Green or PlotStyle-&gt;Hue[.3,1,.7] instead), and for another 15 bytes you can remove some of the sampling artifacts (using an additional option ,PlotPoints-&gt;90), giving a total of 128 bytes for these beauties:



The braces and commes in those pictures are not produced by c, but just by how I output them to fit them all in one row.

Lastly, here is an attempt at somewhat neater shading. I didn't even bother golfing this down further, the option names are just too long. I'm not even sure I'm too pleased with the result, but I thought I'd post it anyway. This is 188 bytes as it stands:

c=RegionPlot[x^2+y^2&lt;Abs@Sin[(l=#)x~(a=ArcTan)~y/2]||x&gt;0&amp;&amp;y^2&lt;.001,{x,-1,1},{y,-1,1},Frame-&gt;0&gt;1,PlotPoints-&gt;90,ColorFunction-&gt;(Hue[.3,1,.5+.2Sin[.5l#~a~#2]^8]&amp;),ColorFunctionScaling-&gt;0&gt;1]&amp;