for i=0to 255a=0
for j=0to 7a=a+mod(int(i/2^j),2)next
?a,"";next