%!PS
%%BoundingBox: -40 -40 40 40
%%Creator: cgl (inspired by Guy Shaw)
%%CreationDate: 1996.05.23:1858
%%Pages: 1
%%EndProlog
%%Page: 1 1
%Essential part
%300 500 translate
25 34 moveto currentpoint
0 -68 rlineto currentpoint%down
-120 rotate
25 34 lineto%preserve symmetry
120 rotate currentpoint
17 20 lineto currentpoint
-17.6 0 lineto currentpoint
%labels
/Courier findfont 8 scalefont setfont
moveto -5 -3 rmoveto (5) show
moveto 1 1 rmoveto (4) show
moveto 2 -5 rmoveto (3) show
moveto 2 0 rmoveto (2) show
moveto 2 0 rmoveto (1) show
stroke
showpage