read HANS:

N0:=700:
print(`The first `, N0, `terms of the Rademacher sequence C[1,2,1](N) are `):
lu:=ChklSeq(1,2,1,N0):
lprint(lu):
print(`and in floating point`):
lprint(evalf(lu)):

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

quit: