use proconio::input;
use proconio::fastout;
use proconio::marker::Chars;

fn f(x: char, y: char) -> usize {
    if (x == 'A' && y == 'B') || (x == 'B' && y == 'A') {
        return 2;
    }
    else if x == 'A' || y == 'A' {
        return 0;
    }
    else if x == 'B' || y == 'B' {
        return 1;
    }
    else {
        return 3;
    }
}

#[fastout]
#[allow(non_snake_case)]
fn main() {
    input! {
        S: Chars,
        T: Chars,
    }
    let mut ans = vec![0; 4];
    for i in 0..2 {
        for j in 0..2 {
            let idx = f(S[i], T[j]);
            ans[idx] += 25;
        }
    }
    println!("{}", ans.iter().map(|&x| x.to_string()).collect::<Vec<String>>().join(" "));
}