import sequtils, strutils, tables

let
  n = parseInt readLine stdin
  xss = (0 ..< n).mapIt split readLine stdin

var
  dic = initTable[string, int]()
  list = 0.repeat 8

for xs in xss:
  dic[xs[0]] = parseInt xs[1]

for v in values dic:
  inc list[v]

for v in list:
  echo v