Problem: Daniel has a string s, consisting of lowercase English letters and period signs (characters '.'). Let's define the operation of replacement as the following sequence of steps: find a substring ".." (two consecutive periods) in string s, of all occurrences of the substring let's choose the first one, and replace this substring with string ".". In other words, during the replacement operation, the first two consecutive periods are replaced by one. If string s contains no two consecutive periods, then nothing happens.

Let's define f(s) as the minimum number of operations of replacement to perform, so that the string does not have any two consecutive periods left.

You need to process m queries, the i-th results in that the character at position xi (1 ≤ xi ≤ n) of string s is assigned value ci. After each operation you have to calculate and output the value of f(s).

Help Daniel to process all queries.

Input

The first line contains two integers n and m (1 ≤ n, m ≤ 300 000) the length of the string and the number of queries.

The second line contains string s, consisting of n lowercase English letters and period signs.

The following m lines contain the descriptions of queries. The i-th line contains integer xi and ci (1 ≤ xi ≤ n, ci — a lowercas English letter or a period sign), describing the query of assigning symbol ci to position xi.

Output

Print m numbers, one per line, the i-th of these numbers must be equal to the value of f(s) after performing the i-th assignment.

Examples

Input

10 3
.b..bz....
1 h
3 c
9 f


Output

4
3
1


Input

4 4
.cc.
2 .
3 .
2 a
1 a


Output

1
3
1
1

Note

Note to the first sample test (replaced periods are enclosed in square brackets).

The original string is ".b..bz....".

  * after the first query f(hb..bz....) = 4 ("hb[..]bz...."  →  "hb.bz[..].."  →  "hb.bz[..]."  →  "hb.bz[..]"  →  "hb.bz.")
  * after the second query f(hbс.bz....) = 3 ("hbс.bz[..].."  →  "hbс.bz[..]."  →  "hbс.bz[..]"  →  "hbс.bz.")
  * after the third query f(hbс.bz..f.) = 1 ("hbс.bz[..]f."  →  "hbс.bz.f.")



Note to the second sample test.

The original string is ".cc.".

  * after the first query: f(..c.) = 1 ("[..]c."  →  ".c.")
  * after the second query: f(....) = 3 ("[..].."  →  "[..]."  →  "[..]"  →  ".")
  * after the third query: f(.a..) = 1 (".a[..]"  →  ".a.")
  * after the fourth query: f(aa..) = 1 ("aa[..]"  →  "aa.")

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int INF = (-1u) / 2;
const long long int INF2 = (-1ull) / 2;
int a, b, i, d[1011000], j, k, n, m, timer = 0, l, r, x, y;
int c[1011000], cnt = 0, fl = 0, a2, a3 = -1000000, ans = 0;
set<pair<int, int> > st;
set<pair<int, int> >::iterator it, it2;
string s;
char rt;
int main() {
  ios_base::sync_with_stdio(0);
  cin >> n >> m;
  cin >> s;
  for (i = 0; i < n; i++) {
    if (s[i] != '.') continue;
    k = i + 1;
    while (i < n && s[i] == '.') {
      i++;
    }
    st.insert({k, i});
    ans += (i - k);
    i--;
  }
  for (i = 0; i < m; i++) {
    cin >> x;
    cin >> rt;
    if (rt != '.') {
      st.insert({x + 1, -1});
      it = st.find({x + 1, -1});
      it2 = it;
      it++;
      st.erase(it2);
      s[x - 1] = rt;
      if (it == st.begin()) goto qw;
      it--;
      l = (*it).first;
      r = (*it).second;
      if (!(l <= x && x <= r)) goto qw;
      st.erase(it);
      if (x > l) {
        ans += ((x - 1) - l);
        st.insert({l, x - 1});
      }
      if (x < r) {
        ans += (r - (x + 1));
        st.insert({x + 1, r});
      }
      ans -= (r - l);
      goto qw;
    } else {
      if (s[x - 1] == rt) goto qw;
      s[x - 1] = rt;
      st.insert({x, -1});
      it = st.find({x, -1});
      it2 = it;
      it++;
      st.erase(it2);
      l = 0;
      r = 0;
      a = 0;
      b = 0;
      if (it != st.begin()) {
        it--;
        l = (*it).first;
        r = (*it).second;
        it++;
      }
      if (it != st.end()) {
        a = (*it).first;
        b = (*it).second;
      }
      if (l > 0 && a > 0 && r + 2 == a && r + 1 == x) {
        it2 = it;
        it2--;
        st.erase(it);
        st.erase(it2);
        ans -= (r - l);
        ans -= (b - a);
        ans += (b - l);
        st.insert({l, b});
      } else if (l > 0 && r + 1 == x) {
        it--;
        st.erase(it);
        st.insert({l, r + 1});
        ans++;
      } else if (a > 0 && a - 1 == x) {
        st.erase(it);
        st.insert({x, b});
        ans++;
      } else {
        st.insert({x, x});
      }
    }
  qw:;
    cout << ans << endl;
  }
  return 0;
}