import qualified Data.ByteString.Char8 as BC
import Data.Maybe
import qualified Data.IntMap as IM

readIntLines :: IO [Int]
readIntLines = map (fst . fromJust . BC.readInt) . BC.lines <$> BC.getContents

type Map = IM.IntMap Int

get :: Int -> Map -> Int
get key m = fromMaybe 0 $ IM.lookup key m

countUp :: Int -> Int -> Map -> Map
countUp = IM.insertWithKey f
  where f _ new old = old + new

record :: [Int] -> Map -> Map
record [] m = m
record (a:as) m = record as $ countUp a 1 m

solve :: [Int] -> Int -> Int -> Map -> [Int]
solve [] _ _ _ = []
solve (i:is) k q m = score : solve is k q m
  where score = k - q + get i m

main :: IO ()
main = do
  [n, k, q] <- map read . words <$> getLine :: IO [Int]
  as <- readIntLines
  mapM_ (putStrLn . (\n -> if n > 0 then "Yes" else "No")) $ solve [1..n] k q $ record as IM.empty
