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 Julia (1.4.0) (judge verdict: Wrong Answer)

parseInt(x)=parse(Int, x)
parseMap(x::Array{SubString{String},1})=map(parseInt, x)

function main()
	n,a,b,c = readline() |> split |> parseMap
	s = zeros(Int,n)
	for i in 1:n
		str = readline() |> chomp
		if str=="AB"
			s[i]=1
		elseif str=="AC"
			s[i]=2
		else
			s[i]=3
		end
	end
	if a>=1&&b>=1&&c>=1
		println("Yes")
		for i in 1:n
			if s[i]==1
				if a>=b
					println("B")
					a-=1
					b+=1
				else
					println("A")
					a+=1
					b-=1
				end
			elseif s[i]==2
				if a>=c
					println("C")
					a-=1
					c+=1
				else
					println("A")
					a+=1
					c-=1
				end
			else
				if c>=b
					println("B")
					c-=1
					b+=1
				else
					println("C")
					c+=1
					b-=1
				end
			end
		end
	else
		f = 0
		ans = String["" for i in 1:n]
		nx = zeros(Int,n)
		ab = n+1
		ac = n+1
		bc = n+1
		for i in n:-1:1
			if s[i]==1
				nx[i] = bc<ac ? 3 : 2
				ab = i
			elseif s[i]==2
				nx[i] = ab < bc ? 1 : 3
				bc = i
			else
				nx[i] = ab < ac ? 1 : 2
				ac = i
			end
		end
		for i in 1:n
				if s[i]==1
					if a>b
						ans[i]="B"
						a-=1
						b+=1
					elseif b>a
						ans[i]="A"
						a+=1
						b-=1
					elseif a==0
						f = 1
					else
						if nx[i]==2
							ans[i]="A"
							a+=1
							b-=1
						else
							ans[i]="B"
							a-=1
							b+=1
						end
					end
				elseif s[i]==2
					if a>c
						ans[i]="C"
						a-=1
						c+=1
					elseif c>a
						ans[i]="A"
						a+=1
						c-=1
					elseif a==0
						f = 1
					else
						if nx[i]==3
							ans[i]="C"
							c+=1
							a-=1
						else
							ans[i]="A"
							a+=1
							c-=1
						end
					end
				else
					if c>b
						ans[i]="B"
						c-=1
						b+=1
					elseif b>c
						ans[i]="C"
						c+=1
						b-=1
					elseif b==0
						f = 1
					else
						if nx[i]==1
							ans[i]="B"
							b+=1
							a-=1
						else
							ans[i]="C"
							c+=1
							b-=1
						end
					end
				end
		end
		if f==1
			println("No")
		else
			println("Yes")
			for i in 1:n
				println(ans[i])
			end
		end
	end
end

main()