integer(KIND=8)::N read*,N print*,POPCNT(N) end