read `Bitcoin.txt`:

N:=100:

gu:=rSBEEseq(N,q):

print(`A list of the first`, N, `Georgiadis-Zeilberger Rational Functions`):
print(``):
print(`Let GZ[n](q) be the expected duration of the second phase 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 Georgiadis-Zeilberger rational functions,`):
print(`in honor of Evangelos Georgiadis and Doron Zeilbeger who defined them.`):
print(``):

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

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