module Main where

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

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