a = gets.split.map(&:to_i)
b = Array.new(3, 0)
s = gets.strip
s.each_char do |c|
    b[0] += 1 if c == "G"
    b[1] += 1 if c == "C"
    b[2] += 1 if c == "P"
end
point = 0
3.times do |i|
    j = (i + 2) % 3
    w = (a[j] < b[i]) ? a[j] : b[i]
    a[j] -= w
    b[i] -= w
    point += w * 3
end
3.times do |i|
    point += (a[i] < b[i]) ? a[i] : b[i]
end
puts point