{-# LANGUAGE OverloadedStrings #-}
import Control.Monad
import Data.Array
import Data.Char
import Data.List
import Data.Maybe
import qualified Data.ByteString.Char8 as BS

main :: IO()
main= do
  [n, k, q] <- getIntList
  ns <- accumArray (+) (k - q) (1, n) . (flip zip [1,1..]) <$> replicateM q getInt
  forM_ [1..n] $ \n ->
    if ns!n > 0
      then putStrLn "Yes"
      else putStrLn "No"

-- IO
readInt :: BS.ByteString -> Int
readInt = fst . fromJust . BS.readInt

getInt :: IO Int
getInt = readInt <$> BS.getLine

getIntList :: IO [Int]
getIntList = unfoldr (BS.readInt . BS.dropWhile isSpace) <$> BS.getLine
