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: