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 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)
