%!

/s 2 def

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

/shift s def
/page 1 def

% -----------------------------------------------------------------------

200 {
gsave

72 72 scale
1 72 div setlinewidth
shift shift translate

newpath
build-square
gsave
1 0 0 setrgbcolor
fill
grestore 
stroke

showpage

/shift shift s add def
/page page 1 add def


} repeat