f x = if even x then x `div` 2 else 3 * x + 1

main = do
    n <- readLn
    let xs = takeWhile (> 1) $ iterate f n
    print $ length xs
    print $ maximum (1:xs)