(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((n (read))
         (a 0)
         (b n))
    (loop while (/= n 1)
          if (oddp n)
            do (setq n (1+ (* 3 n)))
               (setq b (max b n))
          else
            do (setq n (floor n 2))
          do (incf a))
    (format t "~d~%~d~%" a b)))

(main)