read HANS:
N0:=800:

lu:=ChklSeqF(0,1,1,N0):
print(`The first `, N0, `terms of the Rademacher sequence C_{011}(N) are`):
lprint(lu):
print(`and in floating point:`):
print(evalf(lu)):

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

quit: