import Control.Applicative
import Control.Monad
import qualified Data.ByteString.Char8 as BC
import Data.Maybe (fromJust)

ans::Int->Int->Int->[Int]->[String]
ans n p k a
  |n+1==p=[]
  |otherwise=x:ans n (p+1) k a
    where
      x=check a k p
      check [] k _
        |k>0="Yes"
        |otherwise="No"
      check (a:as) k p
        |a==p=check as (k+1) p
        |otherwise=check as k p

main::IO ()
main=do
  inp<-fmap (fmap (fst.fromJust.BC.readInt) . BC.words) . BC.lines <$> BC.getContents
  let
    [n,k,q]=inp!!0
    a=concat $drop 1 inp
  forM_ (ans n 1 (k-q) a) putStrLn