import Data.List (unfoldr)

collatz :: Integer -> [Integer]
collatz m = unfoldr f m
    where
        f 1 = Nothing
        f n | odd n     = Just (n , 3 * n + 1)
            | otherwise = Just (n , n `div` 2)

main :: IO ()
main = do
  m <- readLn :: IO Integer
  let xs = collatz m
  print $ length xs
  print $ maximum xs