%!
                     /T/E/W/I/_                        /+{%
                   def        }def                  /;{    exec}+
                  /'             /&{      repeat}+{;            add
                 }+                 /|{;{div};}+/"                 {;
                ()                     pop mul}+/@                   {2
                {                       exch{;};}                     &}
               +{                       closepath            }+/!{_ clip
               {                       newpath};}+         {rand{2}{31}
              @{             exp}  |}+/*{;{sethsbcolor}; _{fill};}+/:{;
              2{         |}'}+/l/u/n/a/t/i/c{10}{7}@ roll{684}+{504}+{54
              }        +{systemdict};/Seed known{Seed}{realtime}ifelse()
            pop       srand/?{@ moveto}+{6{{6}{5}@ roll ;}& curveto}+{9};
         {I{pop      };}&{@ rlineto}+ I{240}"{ 120.}'{E}| +{I{360}"}; +{I}
        ;{+};{       .2}+{18}+{T}{T}?{E}{0}i{0}  {W}i{E}{neg 0.}i !{l}  {l}@
        {0}{E}       @{E}"{W{W}"}'{sqrt}   :{/${     {};  exch}+/r{$};{;   def
        };/x{        r};{t}"{a}'('  zu        n)    pop   cos{60}"{+{0}};     {
       6{60           }"}@{360};   {l}{  r}@{ {}    ;      atan}|{ceiling
     }|/z             {gsave }+ 360    {;{x}                  '/y ${+ z};
     {y}            {cos}@{r}"{T}     '  {E}:               y sin{r}"{T}'
   {W}              :{translate}      ;  {x{y}             '} ; rotate
  u{                u};{scale};       {-50}{0}             ?{ -33}{16
  ;                  }{-23}{25}        {0}{25              }  c{23.}{25.
  }                    {33}{16}{50}     {0}            c      {33}{-16.}{23
  }{                   -25}{0}{-25}c                          {-23}{-25}{-33
   }{                {-16};}{-50}{0}c           !             -60{60}?{120}{
    90              cos}i{.0}{-120}i             {-120}{     0}i{n}{1}@{.4}* 
      1{1        }{8}@{{8}| dup{80}"                         {-60}'{50% 2008
         }?{40}{-100}i{100.}{0}i{0}{                       %(c)omoikane    ++
         100}i n 1{3}{2}@ roll{.4}"{0.4                 }{'}*}for{ -33     }
        {.0}?{-25}{10}    {-16}{15    }{0}{15.}c  {16}{15}{25}{
        10   }{33}{0}c    0. 0{1               }*{grestore};
             }for     }    for                    showpage

  SAMPLE