/D{def}def/P{pop}D/g{.01}D/O{-.01}D/o{rlineto}D/J{index}D/M{mul}D/i{2 copy}D 0 g
99 99 scale/C{dup M}D 4{0 g 4{0 2 J 2 sub 2 J 2 sub i 1 O 0{6 -1 roll P 5 1 roll
i M 2 M 3 J add 2 J C 2 J C sub 5 J add 4 2 roll P P exch i C exch C add 4 gt{%e
exit}if}for P P P P setgray i moveto 0 g g 0 0 O o o o fill P}for P}for showpage