(use scheme.list)

(define yuki887
  (let*
    (
      (n (read))
      (collatz (unfold (^x (= 1 x)) identity (^x (if (even? x) (quotient x 2) (+ (* x 3) 1))) n))
    )
    (display (if (= n 1) 0 (length collatz)))
    (newline)
    (display (if (= n 1) 1 (apply max collatz)))
    (newline)))