var
    input, output : text;
    n, p, pressedKey : integer;
    keys : array of record
        c : longint;
        p : integer;
    end;
    k : longint;

begin
    assign(input, 'input.txt');
    reset(input);
    
    readln(input, n);
    setLength(keys, n+1);
    
    for var i := 1 to n do
        keys[i].p := 0;
    
    for var i := 1 to n do
        read(input, keys[i].c);
    readln(input, k);
    
    for var i := 1 to k do begin
        read(input, pressedKey);
        inc(keys[pressedKey].p);
    end;
    
    close(input);
    
    assign(output, 'output.txt');
    rewrite(output);
    
    for var i := 1 to n do
        if keys[i].c < keys[i].p then
            writeln(output, 'yes')
        else
            writeln(output, 'no');
    
    close(output);
end.