/_c{transform .25 sub round .25 add exch .25 sub round .25 add exch itransform}q
/c{_c curveto}q
/C/c Q
/v{currentpoint 6 2 roll _c curveto}q
/V/v Q
/y{_c 2 copy curveto}q
/Y/y Q
/l{_c lineto}q
/L/l Q
/m{_c moveto}q
/_e[]X
/_E{_e length 0 ne{gsave 1 g 0 G 1 i 0 J 0 j .5 w 10 M[]0 d/Helvetica-Bold 30 0 0 1 z[0.966 0.259 -0.259 0.966 _e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div]a(ERROR: limitcheck)t T grestore}if}q
/n/newpath Q
/N/newpath Q
/F{p{fill}stopped{/_e[pathbbox]X n _E}if}q
/f{closepath p{fill}stopped{/_e[pathbbox]X n _E}if}q
/S{P stroke}q
/s{closepath P stroke}q
/B{gsave F grestore S}q
/b{closepath gsave f grestore s}q
/u{}q
/U{}q
/_s/ashow Q
/_S{(?)exch{2 copy 0 exch put pop dup true charpath currentpoint _m setmatrix stroke _M setmatrix moveto 3 copy pop rmoveto}forall pop pop pop n}q
/_A{_a _t exch 0 exch}q
/_L{0 _l neg translate}q
/_w{dup stringwidth exch 3 -1 roll length 1 sub _t mul add exch}q
/_z[{0 0 moveto}bind{dup _w exch neg 2 div exch neg 2 div moveto}bind{dup _w exch neg exch neg moveto}bind]X
