Problem:
Score : 600 points

Problem Statement

There is a game that involves three variables, denoted A, B, and C.

As the game progresses, there will be N events where you are asked to make a choice.
Each of these choices is represented by a string s_i. If s_i is AB, you must add 1 to A or B then subtract 1 from the other; if s_i is AC, you must add 1 to A or C then subtract 1 from the other; if s_i is BC, you must add 1 to B or C then subtract 1 from the other.

After each choice, none of A, B, and C should be negative.

Determine whether it is possible to make N choices under this condition. If it is possible, also give one such way to make the choices.

Constraints

1 \leq N \leq 10^5

0 \leq A,B,C \leq 10^9

N, A, B, C are integers.

s_i is AB, AC, or BC.

Input

Input is given from Standard Input in the following format:

N A B C
s_1
s_2
:
s_N

Output

If it is possible to make N choices under the condition, print Yes; otherwise, print No.

Also, in the former case, show one such way to make the choices in the subsequent N lines. The (i+1)-th line should contain the name of the variable (A, B, or C) to which you add 1 in the i-th choice.

Sample Input 1

2 1 3 0
AB
AC

Sample Output 1

Yes
A
C

You can successfully make two choices, as follows:

In the first choice, add 1 to A and subtract 1 from B. A becomes 2, and B becomes 2.

In the second choice, add 1 to C and subtract 1 from A. C becomes 1, and A becomes 1.

Sample Input 2

3 1 0 0
AB
BC
AB

Sample Output 2

No

Sample Input 3

1 0 9 0
AC

Sample Output 3

No

Sample Input 4

8 6 9 1
AC
BC
AB
BC
AC
BC
AB
AB

Sample Output 4

Yes
C
B
B
C
C
B
A
A

Solution in Perl (5.26.1) (judge verdict: Accepted)

my $s = <STDIN>;
chomp $s;
my ($N,$A,$B,$C) = split(/ /,$s);
#print "$N,$K\n";
my @data;
for(my $i=0;$i<$N;$i++){
    $s = <STDIN>;
    chomp $s;
    $data[$i] = $s;
}
my $zero = 0;
if($A ==0){ $zero++}
if($B ==0){ $zero++}
if($C ==0){ $zero++}

my %data2;
$data2{"A"}=$A;
$data2{"B"}=$B; 
$data2{"C"}=$C; 

my $flag = 0;
my $str;
$str .= "Yes\n";

    for(my $i=0;$i<$N;$i++){
        #print "i$i \n";
        my @dat =split(//,$data[$i]);
        if( ($data2{$dat[0]}==1)&&($data2{$dat[1]}==1) ){
            my @dat2 =split(//,$data[$i+1]);
            if( $dat[0] eq $dat2[0]){
                $data2{$dat[0]}++;
                $data2{$dat[1]}--;
                $str .= "$dat[0]\n";
            }elsif( $dat[0] eq $dat2[1]){
                $data2{$dat[0]}++;
                $data2{$dat[1]}--;
                $str .= "$dat[0]\n";
            }else{
                $data2{$dat[0]}--;
                $data2{$dat[1]}++; 
                $str .= "$dat[1]\n";
            }
        }elsif( $data2{$dat[0]} >= $data2{$dat[1]} ){
             if( $data2{$dat[0]}==0){ print "No";exit;}
             $data2{$dat[0]}--;
             $data2{$dat[1]}++;
             $str .= "$dat[1]\n";
        }else{
            $data2{$dat[0]}++;
            $data2{$dat[1]}--;
            $str .= "$dat[0]\n";
        }
    }
    
print "$str";