ff 1 = 1 ff n = n + ff (div n 2) f n = n*2 - ff n main = do n <- getLine putStrLn (show (f (read n)))