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

printAns n p k a
  |n==p-1=return ()
  |otherwise=do
    putStrLn x
    printAns 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=do
  inp<-fmap (fmap (fst.fromJust.BC.readInt) . BC.words) . BC.lines <$> BC.getContents
  let
    n=(inp!!0)!!0
    k=(inp!!0)!!1
    q=(inp!!0)!!2
    a=concat $drop 1 inp
  printAns n 1 (k-length a) a