import Data.List
toYN :: Bool -> String
toYN False = "No"
toYN True = "Yes"

x -: f = f x

getInts = ((fmap ((fmap read) . words)) getLine) :: IO [Int]
main = do
  [n,k] <- getInts
  a <- getInts
  putStrLn $ a -:
    (ngram (k+1)) -:
    (fmap (\l -> (l!!k) - (head l))) -:
    (fmap (toYN . (>0))) -:
    (intercalate "\n")

ngram n l = take ((length l) - n + 1) (ngram' n l)
  where
  ngram' :: Int -> [a] -> [[a]]
  ngram' n [] = [[]]
  ngram' n xs = take n xs : ngram' n (drop 1 xs)

diff :: [Int] -> [Int]
diff [] = []
diff [_] = []
diff (x:y:l) = (y-x):(diff (y:l))
