read `SternCF.txt`:

N:=25:

print(`The first`, N+1, `terms of  the sequence Sum(a(n,k)^2,k=0...infinity) where a(n,k) is the coefficient of`):
print(``):
print(`Prod(1+x^(2^i+(-1)^i)+x^(2^(i+1)+(-1)^(i+1),i=0..n-1)`):
print(``):
print(`are `):
lprint(vnSeq([[2,1],[1,2]],[[1,[0,0]], [1,[0,1]],[1,[1,1]]   ],1,x,[2],N)):

print(``):

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

print(``):
quit: