module Main where

collatz :: Integer -> [Integer]
collatz n = takeWhile (/= 1) (iterate nextCollatz n) ++ [1]
  where
    nextCollatz x = if even x then x `div` 2 else 3 * x + 1

main :: IO ()
main = do
  n <- readLn :: IO Integer
  let seqlist = collatz n

  print (length seqlist - 1)
  print (maximum seqlist)