Module Module1

    Sub Main()

        Dim S As String = Console.ReadLine()
        Dim tmp() As String = Split(S, " ")
        Dim N As Long = CLng(tmp(0))
        Dim K As Long = CLng(tmp(1))
        Dim Q As Long = CLng(tmp(2))
        Dim t As Long = Q - K

        Dim A(N) As Long
        Dim c As Long

        For c = 0 To Q - 1
            A(CLng(Console.ReadLine()) - 1) += 1
        Next

        For c = 0 To N - 1
            If t < A(c) Then
                Console.WriteLine("Yes")
            Else
                Console.WriteLine("No")
            End If
        Next

    End Sub

End Module
