program answer
  implicit none
  integer :: A, B, C, K, i

  read(*,*) A, B, C
  read(*,*) K
  
  do i = 1, K
     if(B<=A) then
        B=B*2
     else
        if(B>=C) then
           C=2*C
        end if
     end if
     if(B>A.and.C>B) then
        write(*,*) 'Yes'
        stop
     end if
  end do

  write(*,*) 'No'
  stop
 end program answer
        