[<AutoOpen>]
module Program

open System

let read f = stdin.ReadLine() |> f
let reada f = stdin.ReadLine().Split() |> Array.map f
let reads f = stdin.ReadLine().Split() |> Array.toList |> List.map f

[<EntryPoint>]
let main _ =
    let [n;k;q] = reads int
    let xs = List.init q (fun _ -> read int)
    let ps = Array.create n k
    let qs = Array.create n 0

    let gs = List.countBy id xs
    for (i, j) in gs do
        qs.[i-1] <- qs.[i-1] + j

    for i = 0 to n - 1 do
        ps.[i] <- ps.[i] - (q - qs.[i])

    for i in ps do
        if i <= 0 then
            printfn "No"
        else
            printfn "Yes"

    0