Generate the Stack Overflow logo The challenge is to generate an image similar to the StackOverflow logo:



The output must contain:


Image size 64*64 or greater
A gray |__| shaped base
A curved segmented stack coming up from the base. The segments will fade from gray to orange, and make a ~90 degree right turn. The number of segments should be between 5 and 7, with 6 being preferred.


Note: For ascii displays that lack color, use a '0' character to represent gray, and '9' for orange. '1' to '8' would represent the shades in-between. 

Restrictions:


You must generate the image. Loading images or storing them in the code/binary is not allowed.


Additional rules/information:


The image is not required to be identical to the logo, however it must be recognizable as it. 
The method of display is up to you. Saving it to an image file or displaying on the screen are both acceptable.


Judging/winning criteria:


Accuracy of the image is the primary condition
Elegance of generation is the secondary condition
Mathematica
Graphics[{
   Gray, Rectangle[{0, 0}, {78, 50}],
   White, Rectangle[{9, 9}, {69, 50}]}
  ~Join~
  Table[{
    Blend[{Gray, Orange}, x/5],
    Rotate[
     Translate[
      Rectangle[{16, 16}, {61, 25}],
      {0.25x^3 + 0.6x^2 - 0.4x, -0.53x^3 + 3.26x^2 + 12x}],
     -0.05x^2 - 0.04x]},
   {x, 0, 5}]]

I decided to prettify my answer after realizing this isn't code golf. Whoops!
Screenshot:

In related news, I also created what I think the Stack Overflow logo might look like in... THE FUTURE:

Here's the code if anyone wants to play around with it (sorry for the mess):
Graphics3D[{EdgeForm[],
   Opacity[1],
   RGBColor[0.2, 0.2, 0.2], Cuboid[{0, 0, 0}, {78, 4, 50}],
   Cuboid[{0, 4, 0}, {4, 45, 50}],
    Cuboid[{74, 4, 0}, {78, 45, 50}],
   Opacity[1]}
  ~Join~
  Fold[Join, {},
   Table[{Hue[0.15 - i/5/12, i/3, 1],
     Translate[
      Rotate[
       Scale[Cuboid[{16, 16, 16}, {61, 25, 25}], {1, .3, .3}],
       (-.05 ((i*2 - 1.5)*1.25)^2 - .04 ((i*2)*1.2)), {0.3, 
        0.8, -1}, {(16 + 61)/2, (16 + 25)/2, (16 + 25)/2}],
      {-((i*2)^2 - (i*2)*4)/2, (i*2)^2*3/2, 0}]},
    {i, 0, 4.5, 0.05}]], Lighting -&gt; &quot;Neutral&quot;, Axes -&gt; False, 
 Background -&gt; White, Boxed -&gt; False]