(defparameter N (parse-integer (read-line)))

(defparameter cnt 0)
(defparameter c 1)

(loop while (< c N) do
        (incf cnt)
        (setq c (* c 2))
)
(format t "~d~%" cnt)