/bark{gsave currentpoint translate newpath 0 0 moveto 0 0 2 0 360 arc 1 0 1 setrgbcolor fill grestore}bind def% yap
/joke{currentpoint stroke newpath moveto}bind def% awoo
/face{newpath
    0  -6   moveto
    64  70  lineto
   -58 -48 rlineto
    40  53 rlineto
   -4   1  rlineto
   -72 -36 rlineto
   -42 -5  rlineto
    42 -34 rlineto
  joke}bind def
/eye{10 28 rmoveto
     2   14
     6   10
     10  7 rcurveto
    -2  -2 rlineto
     closepath
     joke}bind def
/triangles{}def
/yote{face eye triangles}bind def
0.75 setlinewidth 1 setlinecap 2 setmiterlimit
7 rotate 108 32 translate
yote
showpage