read PI:

Digits:=10000:

L:=1000:

print(`The first`, L, `terms in the Andre sequence (using the enumeration of Up-Down permutations) are `):

gu:=AndrePiAppxF(L):
lprint(gu ):

print(`The errors are`):

lprint([seq(evalf(evalf(abs(gu[i]-evalf(Pi,10000)),10000),5),i=1..nops(gu))]):

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

quit: