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
  [_,k] <- getInts
  a <- getInts
  putStrLn $ a -:
    (ngram k) -:
    (fmap product) -:
    (ngram 2) -:
    (fmap (\[s,s']->s'>s)) -:
    (fmap toYN) -:
    (intercalate "\n")

ngram :: Int -> [a] -> [[a]]
ngram n xs
  | n <= length xs = take n xs : ngram n (drop 1 xs)
  | otherwise = []
