import qualified Data.Map as M
import qualified Data.Map as M
import Control.Monad

solve :: [Int] -> M.Map Int Int -> M.Map Int Int
solve inData ans
 | null inData = ans
 | otherwise   = solve (tail inData) newAns
   where newAns = M.insertWith (+) (head inData) 1 ans

main = do
 [n,k,q] <- map read . words <$> getLine :: IO [Int]
 aList   <- replicateM q (read <$> getLine) :: IO [Int]
 mapM_ putStrLn $ map ((\x -> if x > 0 then "Yes" else "No") . (\x -> x + k - q) . snd) $ M.toList $ solve aList $ M.fromList $ zip [1..n] $ repeat 0