#![allow(unused_imports)]
#![allow(non_snake_case)]
use std::collections::HashMap;
use std::collections::HashSet;
use std::collections::VecDeque;

#[allow(unused_macros)]
macro_rules! read {
    ([$t:ty] ; $n:expr) =>
        ((0..$n).map(|_| read!([$t])).collect::<Vec<_>>());
    ($($t:ty),+ ; $n:expr) =>
        ((0..$n).map(|_| read!($($t),+)).collect::<Vec<_>>());
    ([$t:ty]) =>
        (rl().split_whitespace().map(|w| w.parse().unwrap()).collect::<Vec<$t>>());
    ($t:ty) =>
        (rl().parse::<$t>().unwrap());
    ($($t:ty),*) => {{
        let buf = rl();
        let mut w = buf.split_whitespace();
        ($(w.next().unwrap().parse::<$t>().unwrap()),*)
    }};
}

#[allow(dead_code)]
fn rl() -> String {
    let mut buf = String::new();
    std::io::stdin().read_line(&mut buf).unwrap();
    buf.trim_end().to_owned()
}

fn main() {
    let mut pt = 0;

    let (mut g, mut c, mut p) = read!(i32, i32, i32);
    let s = read!(String);

    let (mut og, mut oc, mut op) = (0, 0, 0);
    for c in s.chars() {
        match c {
            'G' => { og += 1; },
            'C' => { oc += 1; },
            'P' => { op += 1; },
            _   => {},
        }
    }

    let (wg, wc, wp) = (g.min(oc), c.min(op), p.min(og));
    pt += 3 * (wg + wc + wp);

    g -= wg;
    oc -= wg;
    c -= wc;
    op -= wc;
    p -= wp;
    og -= wp;

    let (dg, dc, dp) = (g.min(og), c.min(oc), p.min(op));
    pt += dg + dc + dp;

    println!("{}", pt);
}