/width  595 def % 210 mm =  8.268"
/height 842 def % 297 mm = 11.693"

/circle { 0 360 arc fill } def
/disc {
    0 0 0 setrgbcolor x y r circle
    0 0 setrgbcolor x 3 sub y 3 add r circle
} def

5000 {
    /x rand width mod def
    /y rand height mod def
    /r rand 40 mod 10 add def
    rand 128 mod 100 add 256 div disc
} repeat

/Courier-Bold findfont 20 scalefont setfont
1 1 1 setrgbcolor
/line height 38 sub def
/file (discs.ps) (r) file def
/buffer 80 string def
{
    file buffer readline
    { 6 line moveto show /line line 30 sub def }
    { exit } ifelse
} loop
showpage