integer*8::N read *,N print '(i0)', POPCNT(N) end