1 13f7391e 2004-05-15 devnull /build_sq {
 2 13f7391e 2004-05-15 devnull     pop
 3 13f7391e 2004-05-15 devnull     size 2 div /side exch def
 4 13f7391e 2004-05-15 devnull     currentpoint
 5 13f7391e 2004-05-15 devnull     newpath
 6 13f7391e 2004-05-15 devnull     moveto
 7 13f7391e 2004-05-15 devnull     0 side rlineto
 8 13f7391e 2004-05-15 devnull     side 0 rlineto
 9 13f7391e 2004-05-15 devnull     0 side neg rlineto
10 13f7391e 2004-05-15 devnull     closepath
11 13f7391e 2004-05-15 devnull     font B eq {fill} {stroke} ifelse
12 13f7391e 2004-05-15 devnull } def