for i=1to 256?n,"";:n=n+1-log(and(-i,i),2)next