-40 0 translate
/Helvetica-Bold findfont 6.5 scalefont setfont
- 0 0 moveto
- (+8) show
+ -4 0 moveto
+ (+16) show
+
+ 4 -2 translate
+ ${\ veepsq('+8') }
+
+ 4 4.5 moveto
+ /Times-Roman findfont 4.5 scalefont setfont
+ (per next page) show
+
grestore
END
}