read `GR3moms.txt`:

K:=40:

print(`The first`, K, ` moments about the mean of the duration of a fair 2-player gambler's ruin , with inital capitals, A, B are :is`):
print(``):
gu:=AllMoms2am(K,A,B):

print(``):
lprint(gu):
print(``):
lu:=subs(B=A,gu):
print(``):
print(`If the initial capitals are the same this is`):
print(``):
lprint(lu):
print(``):

vu:=[normal(lu[1]/A^2), limit(lu[2]/A^4,A=infinity), seq(limit (lu[i]/lu[2]^(i/2),A=infinity),i=3..K)]:

print(`The list whose first entry is the expected duration divided by A^2, the second the limit, as A goes to infinity, of the variance divided by A^4, and the limits as A goes to infinity of the 3rd througth the`, K, `scaled momeents are`):
print(``):
lprint(vu):
print(``):
print(`and in decimals`):
print(``):
lprint(evalf(vu)):
print(``):

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