%!

72 72 scale
1 72 div setlinewidth

1 1 translate

/s 2 def

/build-square {
1 1 moveto
s 0 rlineto
0 s rlineto
s neg 0 rlineto
closepath
} def

newpath
build-square
gsave
1 0 0 setrgbcolor
fill

grestore stroke


showpage