import Control.Monad
import qualified Data.Map as M

main :: IO ()
main = do
  (n:k:q:as) <- map read . words <$> getContents
  mapM_ putStrLn $ solve n k q as

solve :: Int -> Int -> Int -> [Int] -> [String]
solve n k q as = go mp0 as
  where
    mp0 = M.fromList $ zip [1..n] $ repeat 0

    go mp []
      = map (\x -> if x + k > q then "Yes" else "No")
      $ map snd $ M.toList mp

    go mp (a:as)
      = go (M.insertWith (+) a 1 mp) as