import Data.Array.IO
import Control.Monad

main = do
  [n, k] <- map read . words <$> getLine :: IO [Int]
  as <- map (read :: String -> Int) . words <$> getLine
  as' <- newListArray (0, n - 1) as :: IO (IOArray Int Int)
  pts' <- flip mapM [0 .. n - k] $ \start -> do
    x <- flip mapM [0 .. k - 1] $ \i -> do
      readArray as' (start + i)
    return $ product x
  flip mapM_ (zip pts' (tail pts')) $ \(i, j) ->
    putStrLn $ if j > i then "Yes" else "No"
