program MSOLUTIONSB
    implicit none
    integer(8)::A,B,C,K
    read*,A,B,C,K

    do
        if(B>A .or. K<=0)exit
        B=B*2
        K=K-1
    end do

    C=C*(2**K)

    if(C>B .and. B>A)then
        print'(A)',"Yes"
    else
        print'(A)',"No"
    end if
end program MSOLUTIONSB