#![allow(unused_imports, unused_macros)]
use std::cmp::*;
use std::collections::*;
use std::io::Read;
use x_macros::*;

fn main() {
    // input
    input! {
        n: usize,
        sc: [(String, usize); n]
    }
    // main
    let mut map = HashMap::<&String, usize>::new();
    for i in 0..n {
        map.insert(&sc[i].0, sc[i].1);
    }
    let mut ans: [i32; 8] = [0; 8];
    for x in map.iter() {
        ans[*x.1] += 1;
    }
    // output
    for i in 0..8 {
        println!("{}", ans[i]);
    }
}

// ----------------------------------------------------------------
#[macro_use]
pub mod x_macros {

    #[macro_export]
    macro_rules! input {
        ($($r:tt)*) => {
            let mut bytes = std::io::Read::bytes(std::io::BufReader::new(std::io::stdin()));
            let mut next = move |is_word: bool| -> String{
                if is_word {
                    bytes
                        .by_ref()
                        .map(|r|r.unwrap() as char)
                        .skip_while(|c|c.is_whitespace())
                        .take_while(|c|!c.is_whitespace())
                        .collect()
                } else {
                    bytes
                        .by_ref()
                        .map(|r|r.unwrap() as char)
                        .skip_while(|c| c == &'\n')
                        .take_while(|c| c != &'\n')
                        .collect()
                }
            };
            input_inner!{next, $($r)*};
        };
    }

    #[macro_export]
    macro_rules! input_inner {
        ($next:expr) => {};
        ($next:expr, ) => {};

        ($next:expr, static $var:ident : $t:tt $($rest:tt)*) => {
            $var = read_value!($next, $t);
            input_inner!{$next $($rest)*}
        };

        ($next:expr, mut $var:ident : $t:tt $($rest:tt)*) => {
            let mut $var = read_value!($next, $t);
            input_inner!{$next $($rest)*}
        };

        ($next:expr, $var:ident : $t:tt $($rest:tt)*) => {
            let $var = read_value!($next, $t);
            input_inner!{$next $($rest)*}
        };
    }

    #[macro_export]
    macro_rules! read_value {
        ($next:expr, ( $($t:tt),* )) => {
            ( $(read_value!($next, $t)),* )
        };

        ($next:expr, [ $t:tt ; all ]) => { {
                let mut str = $next(false);
                str.split_whitespace().map(|it| it.parse::<$t>().unwrap()).collect::<Vec<_>>()
            }
        };

        ($next:expr, [ $t:tt ; $len:expr ]) => {
            (0..$len as usize).map(|_| read_value!($next, $t)).collect::<Vec<_>>()
        };

        ($next:expr, chars) => {
            read_value!($next, String).chars().collect::<Vec<char>>()
        };

        ($next:expr, lines) => {
            {
                let mut vec = Vec::new();
                let mut str = $next(false);
                while str != "" {
                    vec.push(str);
                    str = $next(false);
                }
                vec
           }
        };

        ($next:expr, line) => {
            $next(false)
        };

        ($next:expr, usize1) => {
            read_value!($next, usize) - 1
        };

        ($next:expr, $t:ty) => {
            $next(true).parse::<$t>().expect("Parse error")
        };
    }
}

// input (to parse query)
fn get_word() -> String {
    let stdin = std::io::stdin();
    let mut stdin = stdin.lock();
    let mut u8b: [u8; 1] = [0];
    loop {
        let mut buf: Vec<u8> = Vec::with_capacity(16);
        loop {
            let res = stdin.read(&mut u8b);
            if res.unwrap_or(0) == 0 || u8b[0] <= b' ' {
                break;
            } else {
                buf.push(u8b[0]);
            }
        }
        if buf.len() >= 1 {
            let ret = String::from_utf8(buf).unwrap();
            return ret;
        }
    }
}

#[allow(dead_code)]
fn get<T: std::str::FromStr>() -> T {
    get_word().parse().ok().unwrap()
}