module Main where

main :: IO ()
main = interact (show . count . read)

count :: Int -> Int
count 1 = 0
count 2 = 1
count n
  | even n    = succ (count (n `div` 2))
  | otherwise = succ (count (n - 1))