use std::{collections::*, io::Read};

fn take_token<R: std::io::BufRead>(cin: &mut R) -> String {
    cin.bytes()
        .map(|c| c.unwrap() as char)
        .skip_while(|c| c.is_whitespace())
        .take_while(|c| !c.is_whitespace())
        .collect::<String>()
}
#[allow(unused)]
macro_rules! scan {
    ($io:expr => $t:ty) => (take_token(&mut $io).parse::<$t>().unwrap());
    ($io:expr => $t:tt * $n:expr) => ((0..$n).map(|_| scan!($io => $t)).collect::<Vec<_>>());
    ($io:expr => $($t:tt),*) => (($(scan!($io => $t)),*));
    ($io:expr => $($t:tt),* * $n:expr) => ((0..$n).map(|_| ($(scan!($io => $t)),*)).collect::<Vec<_>>());
}

fn main() {
    solve(std::io::stdin().lock())
}

fn solve<R: std::io::BufRead>(mut cin: R) {
    let (n, q) = scan!(cin => i32, i32);
    let s = scan!(cin => String);
    let mut totals = vec![vec![0; (n + 1) as usize]; 27];
    for (i, c) in s.as_bytes().iter().enumerate() {
        totals[*c as usize - 'a' as usize][i + 1] = 1;
    }
    for c in 0..27 as usize {
        for i in 0..n as usize {
            totals[c][i + 1] += totals[c][i];
        }
    }

    for _ in 0..q {
        let (l, r, x2) = scan!(cin => i32, i32, i32);
        let mut x = x2;
        for c in 0..27 as usize {
            let d = totals[c][r as usize] - totals[c][(l - 1) as usize];
            x -= d;
            if x <= 0 {
                println!("{}", ('a' as u8 + c as u8) as char);
                break;
            }
        }
    }
}