%!

% plot of {ab = 691 mod 5077}

% Noam D. Elkies, 1998

0 setlinewidth

72 72 translate
.08 dup scale

/plot{
  newpath 4 0 360 arc closepath fill
  } def

/p 5077 def
/m 691 def
/g 2 def
/g1 2539 def

0 0 moveto
0 p lineto p p lineto p 0 lineto closepath stroke

/a 1 def
/b m def
1 1 p 1 sub{
  pop
  /a a g mul p mod def
  /b b g1 mul p mod def
  a b plot
  } for

/center{dup stringwidth exch -2 div exch rmoveto show} def
/Times-Roman findfont p .1 mul scalefont setfont
p .5 mul p 1.2 mul moveto
(x y  =  691  mod  5077) center

showpage