main :: IO ()
main = do
  [n, k] <- map read . words <$> getLine
  putStrLn $ if solve n k then "YES" else "NO"

solve :: Int -> Int -> Bool
solve n k
  | odd n     = k <= (n + 1) `div` 2
  | otherwise = k <= n `div` 2