import Control.Monad
import Data.List

scoreList t 0 = []
scoreList t cnt = if t == cnt then 0 : scoreList t (cnt-1) else 1 : scoreList t (cnt-1)
scoreListReverse t cnt = reverse $ scoreList t cnt

solve [] n = replicate n 0
solve (a:as) n = zipWith (+) (scoreListReverse a n) (solve as n)

main = do
    [n,k,q] <- map read . words <$> getLine :: IO [Int]
    aq <- map read <$>replicateM q getLine :: IO [Int]
    print $ solve aq n
    putStr $ unlines $ map (\x -> if x < k then "Yes" else "No") $ solve aq n
