cat pmscript
p = 176711
q = 2922259
s = 457
k = 457
w = (p - 1 ) * ( q - 1 )
p * q
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
p()
y
/* Use pairmaker s(p,q) to identify seed values which can be given to
s and k such that a proper series of encryption values will be generated. */
/* Use in the command <bc pairmaker pmscript | tee keylistx> to create a
keylist given p, q, and the resulting n and phi(n) */
$