n, q = gets.split(" ").map(&:to_i)
s = gets.chomp

ary = []
s.split("").each do |c|
  ary << [c, 1]
end

0.upto(q-1) do
  t = gets.split(" ")
  if t[1] == 'L'
    ary.each_with_index do |a, i|
      if a[0] == t[0]
        if i == 0
          ary[i][1] = 0
        else
          ary[i-1][1] = ary[i-1][1] + ary[i][1]
          ary[i][1] = 0
        end
      end
    end
  else
    ary.each_with_index do |a, i|
      if a[0] == t[0]
        if i == n-1
          ary[i][1] = 0
        else
          ary[i+1][1] = ary[i+1][1] + ary[i][1]
          ary[i][1] = 0
        end
      end
    end
  end
end

res = 0;
ary.map {|a| res += a[1] }
puts res
