use std::io;
use core::str::Chars;


// graph
struct Graph {
    node: i32,
    adjMatrixs: Vec<Vec<i32>>,
}
struct WeightGraph {
    node: i32,
    weight: Vec<Vec<i32>>,
}
// points
struct Point {
    x: i32,
    y: i32,
}

struct PointGroup{
    n: i32,
    point:Point,
}


fn read_line() -> String {
    let mut s = String::new();
    io::stdin().read_line(&mut s).unwrap();
    s
}

macro_rules! from_line {
    ($($a:ident : $t:ty),+) => {
        $(let $a: $t;)+
        {
            let _line = read_line();
            let mut _it = _line.trim().split_whitespace();
            $($a = _it.next().unwrap().parse().unwrap();)+
            assert!(_it.next().is_none());
        }
    };
}

fn solve(){
    from_line!(n: usize);
    let s = read_line();
    let mut list = vec![0;26];
    let ch:Vec<char> = s.chars().collect();
    for i in 0..n{
        let j = (ch[i] as i32) - ('A' as i32);
   //     println!("{}",j);
        list[j as usize] += 1;
    }
    //println!("{:?}",list);
    for a in &list{
        print!("{}",*a);
    }
    println!();
}
fn main() {
    solve();
}