main :: IO ()
main = do
  n0 <- readLn
  let (i1, nmax) = solve n0
  print i1
  print nmax

solve :: Integral a => a -> (Int, a)
solve n0 = (length ns - 1, maximum ns)
  where
    ns = collatz n0

collatz :: Integral a => a -> [a]
collatz n = n : if n == 1 then [] else collatz (f n)
  where
    f n
      | even n    = div n 2
      | otherwise = 3 * n + 1