/^%%EndPageSetup/ {
  print $0;
  print "%%BeginObject: page-number";
  print "gsave initmatrix 0 setgray";
  print "newpath /Helvetica findfont 10 scalefont setfont";
  print "298 25 moveto ("page") dup stringwidth pop 2 div neg 0 rmoveto show";
  print "grestore";
  print "%%EndObject";
  page++;
  next;
}
{print}