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 $ (zip (take (n-k) a) (drop k a)) -:
    (fmap (\(a,b)-> toYN (b>a))) -:
    (intercalate "\n")

kDiff :: Int -> [Int] -> [Int]
kDiff k l = take ((length l) - k) (kDiff' k l)
  where
  kDiff' :: Int -> [Int] -> [Int]
  kDiff' k [] = []
  kDiff' k l = ((head $ drop k l) - (head l)):(kDiff' k (drop 1 l))
