func main()
	var n: int :: cui@inputInt()
	var s: []char :: cui@input()
	var dic: dict<char, int> :: #dict<char, int>
	for i(0, n - 1)
		do dic.add(s[i], dic.get(s[i], &) + 1)
	end for
	for i(0, 25)
		do cui@print("\{dic.get(('A' $ int + i) $ char, &)}")
	end for
	do cui@print("\n")
end func