import Data.Bits

main :: IO ()
main = do
    n <- readLn :: IO Integer
    seq n $ print $ popCount n