func main()
	var n: int :: cui@inputInt()
	var q: int :: cui@inputInt()
	var s: []char :: cui@input()
	for(1, q)
		var l: int :: cui@inputInt()
		var r: int :: cui@inputInt()
		var x: int :: cui@inputInt()
		var t: []char :: s.sub(l - 1, r - l + 1)
		do t.sort()
		do cui@print("\{t[x - 1]}\n")
	end for
end func