use proconio::{input, marker::Chars};

fn main() {
    input! {
        s: Chars, t: Chars,
    }

    let mut prob = [0; 4];
    for &s in &s {
        for &t in &t {
            let i = match (s, t) {
                ('A', 'A') | ('A', 'O') | ('O', 'A') => 0,
                ('B', 'B') | ('B', 'O') | ('O', 'B') => 1,
                ('A', 'B') | ('B', 'A') => 2,
                ('O', 'O') => 3,
                _ => unreachable!(),
            };
            prob[i] += 25;
        }
    }
    let ans = prob
        .iter()
        .map(|p| p.to_string())
        .collect::<Vec<_>>()
        .join(" ");
    println!("{ans}");
}