do i=0,255
k=0
do j=0,7
k=k+mod(i/2**j,2)
enddo
print'(i0$)',k
enddo
end