/acorn { /x exch def
    currentpoint translate
    x 288 div dup scale
    /s { 16 div 72 mul } def /h1 36 s def /f1 .26 def
    -18 s 0 moveto -18 3 f1 mul add s h1 f1 mul
    s 18 3 f1 mul sub s h1 f1 mul s 18 s 0 curveto closepath
    stroke /h2 30 s def /f2 .17 def 
    -19 s -3 s moveto -19 3 f2 mul add s -3 h2 f2 mul 
    sub s 19 3 f2 mul sub s -3 h2 f2 mul sub s 19 s -3 s curveto closepath 
    stroke -20.5 s -17.5 s moveto 0 -23 s 0 -23 s 22 s -31 s curveto 
    17 s -33 s lineto 0 -25 s 0 -25 s -21.25 s -19 s curveto closepath 
    stroke -1.4 s -15 s moveto -1.4 s 
    -24 s lineto 1.4 s -24 s lineto 1.4 s -15 s lineto closepath 
    stroke } def 

/go {erasepage currentrgbcolor 
 initgraphics setrgbcolor 2 setlinecap setlinewidth 370 500 moveto acorn } def 

/box {moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath stroke} def

.2 .7 .3 setrgbcolor

/str 10 string def

/bench {1 1 10 {10 str cvrs print 900 20 go} for} def
