d:dispterms;d(a:0);sum(thru mod(i,19)+1 do d(a:a+2^i),i,0,19);