1 9daa3ca7 2008-01-31 rsc /build_sq { 2 9daa3ca7 2008-01-31 rsc pop 3 9daa3ca7 2008-01-31 rsc size 2 div /side exch def 4 9daa3ca7 2008-01-31 rsc currentpoint 5 9daa3ca7 2008-01-31 rsc newpath 6 9daa3ca7 2008-01-31 rsc moveto 7 9daa3ca7 2008-01-31 rsc 0 side rlineto 8 9daa3ca7 2008-01-31 rsc side 0 rlineto 9 9daa3ca7 2008-01-31 rsc 0 side neg rlineto 10 9daa3ca7 2008-01-31 rsc closepath 11 9daa3ca7 2008-01-31 rsc font B eq {fill} {stroke} ifelse 12 9daa3ca7 2008-01-31 rsc } def