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: Runtime Error)

const teststr = 
"""
8 6 9 1
AC
BC
AB
BC
AC
BC
AB
AB
"""

function lines()
  Channel{String}(32) do ch
    ll = readlines()
    lines = isempty(ll) ? split(teststr, "\n") : ll
    for s in lines
      put!(ch, s)
    end
  end
end

function main()
  ch = lines()
  N,A,B,C = parse.(Int, split(take!(ch)))
  c = zeros(Int, 3, N)
  strs=String[]
  for i in 1:N
    str = take!(ch)
    push!(strs, str)
    @views c[:,i] = str=="AB" ? [1,-1,0] :
                    str=="AC" ? [1,0,-1] :
                                [0,1,-1]
  end
  ss = ones(Int, N)
  hs = zeros(Int, 3, N)
  @views hs[:,1] .= [A,B,C]
  que = [(1,-1), (1,1)]
  while !isempty(que)
    n, s = pop!(que)
    abc = s>0 ? @views(hs[:,n] .+ c[:,n]) : @views(hs[:,n] .- c[:,n])
    any(abc .< 0) && continue
    ss[n] = s
    if n == N
      println("Yes")
      for i in 1:N
        println(strs[i][ss[i]==1 ? 1 : 2])
      end
      exit(1)
    end
    @views hs[:,n+1] .= abc
	push!(que, (n+1,-1), (n+1,1))
  end
  println("No")
end

main()