read `Bitcoin.txt`:

N:=100:

gu:=rSBEseq(N,q):

print(`A list of the first`, N, `Rosnefeld polynomials`):
print(``):
print(`Let R[n](q) be the probability of a succesful bitcoin attack where the honest party accumulates n good coins, and`):
print(`the probability of success of the bad party at a single try is q, q<1/2. These are called the Rosenfeld polynomials`):
print(`in honor of Meni Rosenfeld.`):
print(``):

for n from 1 to nops(gu) do
 print(R[n]=gu[n]):
 print(``):
od:

print(``):
print(`----------------------------------------`):
print(``):
print(`This took`, time(), `seconds. `):
print(``):
quit: