\font\largerbold = cmbx10 scaled \magstep1
\font\largerrm =cmr12 scaled \magstep2
\def\zf#1, #2 {\centerline{\vrule height .02in width 5in}
\centerline{$x=#1, \ y=#2$ \quad
\raise -.2in\hbox{\vrule height .5in width .02in} \quad
{\bf Name} {\vrule height 1pt depth 0pt width 1.5in}\ \ (#1) 
}
{\centerline{\vrule height .02in width 5in}}}

\nopagenumbers
\font\sc=cmcsc10.tfm
\magnification=\magstep2
\nopagenumbers


\zf 311060, 2415944001200 

\zf 838030, 16343269965160 

\zf 426257, 4369488019133 

\zf 369719, 3334421637185 

\zf 334825, 2768981465245 


\zf 364894, 3252897969160 

\zf 218007, 1283624941633 

\zf 712645, 11871348363805 
\eject
\zf 237130, 1483807354960 

\zf 754821, 13294860737821 


\zf 735987, 12649069584433 

\zf 685226, 10989799244816 

\zf 764241, 13623980691901 

\zf 608070, 8694731837080 

\zf 925276, 19881621882016 


\zf 910560, 19260250172200 
\eject
\zf 955083, 21170722618801 

\zf 320229, 2549074626205 

\zf 364345, 3243689869405 

\zf 214964, 1253321740400 


\zf 492220, 5762954349280 

\zf 658928, 10176782373896 

\zf 371445, 3363844362205 

\zf 519845, 6405995093405 
\eject
\zf 528383, 6611839801601 


\zf 390020, 3689161209680
 
\zf 529724, 6644474993120 

\zf 854411, 16980919080881 

\zf 195860, 1072808999600 

\zf 219898, 1302670740016 


\zf 441142, 4666446374008 

\zf 375934, 3441008992840


\vfil\eject\end

\parindent=0pt
\centerline{\vrule height .02in width 5in}
\centerline{$x=97145, \ y=636711343158$ \quad
\raise -.2in\hbox{\vrule height .5in width .02in} \quad
{\bf Name} {\vrule height 1pt depth 0pt width 1.5in}\ \ (97145) 
}


the message is secret which translates to 190503180520

the polynomial is message-2x+23x^2

zz:=rand(99999..10^6)


f:= proc(x) options operator,  arrow; x,message-2x+23x^2


seq([zf,f(zz())],i=1..32);


\vfil\eject\end


