program atcoder
    implicit none
    integer :: length = 1
    integer(kind = 8) :: X, Y

    read *, X, Y
    do
        X = X*2
        if(X .le. Y) then
            length = length + 1
        else
            exit
        endif
    enddo
    print '(i0)', length

    stop

endprogram atcoder
