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