n, q = ARGF.gets.split.map(&:to_i)

s = ARGF.gets.chomp
t = (0..n).map { 0 }
n.times { |i| t[i+1] = t[i] + (s[i,2] == 'AC' ? 1 : 0) }

q.times do
  l, r = ARGF.gets.split.map(&:to_i)
  puts t[r-1] - t[l-1]
end
