(define n (read)) (define x (floor->exact (log n 2))) (define y (- n (expt 2 x))) (print (if (zero? y) x (+ x 1)))