program procon1
  integer :: N,K,J

  read(*,*) N,K
  if(mod(N,2).eq.0) then
     J=N/2
  else
     J=(N-1)/2+1
  endif
  if(J.lt.K) then
     write(*,'(a)') 'NO'
  else
     write(*,'(a)') 'YES'
  endif

end program procon1