local ior = io.input()
local g, c, p = ior:read("*n", "*n", "*n", "*l")
local str = ior:read()
local eg, ec, ep = 0, 0, 0
local n = g + c + p
local strtmp = ""
for i = 1, n do
  strtmp = str:sub(i, i)
  if(strtmp == "G") then eg = eg + 1
  elseif(strtmp == "C") then ec = ec + 1
  else ep = ep + 1 end
end
local mmi = math.min
local score = 0
local a = mmi(g, ec)
score, g, ec = 3 * a, g - a, ec - a
a = mmi(c, ep)
score, c, ep = score + 3 * a, c - a, ep - a
a = mmi(p, eg)
score, p, eg = score + 3 * a, p - a, eg - a
score = score + mmi(g, eg) + mmi(c, ec) + mmi(p, ep)
print(score)