%!PS-Adobe-2.0
%%BoundingBox: 0 0 400 400

%%Pages: 2

/s 2 def

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

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

% 1 0 div 

%%Page: 1 1 

/shift 1 def
/page 1 def

gsave

72 72 scale
1 72 div setlinewidth
shift shift translate

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

grestore
/Helvetica-Bold findfont
12 scalefont
setfont

20 100 moveto
(page ) show
page (    ) cvs show

showpage

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

%%Page: 2 2

/shift 2 def
/page 2 def

gsave

72 72 scale
1 72 div setlinewidth
shift shift translate

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

grestore
/Helvetica-Bold findfont
12 scalefont
setfont

20 100 moveto
(page ) show
page (    ) cvs show

showpage

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


} repeat