(use scheme.list)

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