use proconio::input;

fn main() {
    input! {
        s_str: String,
        t_str: String,
    };

    let mut a = 0;
    let mut b = 0;
    let mut ab = 0;
    let mut o = 0;

    for s in s_str.chars() {
        for t in t_str.chars() {
            let baby = vec![s, t];
            match (baby.contains(&'A'), baby.contains(&'B')) {
                (true, false) => a += 25,
                (false, true) => b += 25,
                (true, true) => ab += 25,
                (false, false) => o += 25,
            }
        }
    }
    println!("{} {} {} {}", a, b, ab, o);
}