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

fn main() {
    input! {
        // Input
        n:usize,
        s:Chars,
        p:[usize;n]
    };

    for i in 0..n {
        print!("{}", s[p[i] - 1]);
    }

    println!("");
}