Problem: Nick likes strings very much, he likes to rotate them, sort them, rearrange characters within a string... Once he wrote a random string of characters a, b, c on a piece of paper and began to perform the following operations: 

  * to take two adjacent characters and replace the second character with the first one, 
  * to take two adjacent characters and replace the first character with the second one 



To understand these actions better, let's take a look at a string «abc». All of the following strings can be obtained by performing one of the described operations on «abc»: «bbc», «abb», «acc». Let's denote the frequency of a character for each of the characters a, b and c as the number of occurrences of this character in the string. For example, for string «abc»: |a| = 1, |b| = 1, |c| = 1, and for string «bbc»: |a| = 0, |b| = 2, |c| = 1. 

While performing the described operations, Nick sometimes got balanced strings. Let's say that a string is balanced, if the frequencies of each character differ by at most 1. That is  - 1 ≤ |a| - |b| ≤ 1,  - 1 ≤ |a| - |c| ≤ 1 и  - 1 ≤ |b| - |c| ≤ 1. 

Would you help Nick find the number of different balanced strings that can be obtained by performing the operations described above, perhaps multiple times, on the given string s. This number should be calculated modulo 51123987.

Input

The first line contains integer n (1 ≤ n ≤ 150) — the length of the given string s. Next line contains the given string s. The initial string can be balanced as well, in this case it should be counted too. The given string s consists only of characters a, b and c.

Output

Output the only number — the number of different balanced strings that can be obtained by performing the described operations, perhaps multiple times, on the given string s, modulo 51123987.

Examples

Input

4
abca


Output

7


Input

4
abbc


Output

3


Input

2
ab


Output

1

Note

In the first sample it is possible to get 51 different strings through the described operations, but only 7 of them are balanced: «abca», «bbca», «bcca», «bcaa», «abcc», «abbc», «aabc». In the second sample: «abbc», «aabc», «abcc». In the third sample there is only one balanced string — «ab» itself.

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
int N, cnt;
char s[201], c[201];
int f[155][55][55][55];
int last[3], Nxt[155][3];
int main() {
  scanf("%d ", &N);
  gets(s + 1);
  for (int i = 1; i <= N; ++i)
    if (s[i] != s[i - 1]) c[++cnt] = s[i];
  last[0] = last[1] = last[2] = -1;
  for (int i = cnt; i >= 1; --i) {
    last[c[i] - 'a'] = i;
    Nxt[i][0] = last[0];
    Nxt[i][1] = last[1];
    Nxt[i][2] = last[2];
  }
  if (last[0] != -1) f[last[0]][1][0][0] = 1;
  if (last[1] != -1) f[last[1]][0][1][0] = 1;
  if (last[2] != -1) f[last[2]][0][0][1] = 1;
  bool flag = (N % 3 != 0);
  for (int i = 1; i < N; ++i) {
    for (int st = 1; st <= cnt; ++st)
      for (int p = 0; p <= min(N / 3 + flag, i); ++p)
        for (int q = 0; q <= min(N / 3 + flag, i - p); ++q)
          if (f[st][p][q][i - p - q]) {
            int r = i - p - q;
            for (int k = 0; k < 3; ++k) {
              int nxt = Nxt[st][k];
              if (nxt == -1) continue;
              if (k == 0) {
                f[nxt][p + 1][q][r] += f[st][p][q][r];
                while (f[nxt][p + 1][q][r] >= 51123987)
                  f[nxt][p + 1][q][r] -= 51123987;
                ;
              } else if (k == 1) {
                f[nxt][p][q + 1][r] += f[st][p][q][r];
                while (f[nxt][p][q + 1][r] >= 51123987)
                  f[nxt][p][q + 1][r] -= 51123987;
                ;
              } else {
                f[nxt][p][q][r + 1] += f[st][p][q][r];
                while (f[nxt][p][q][r + 1] >= 51123987)
                  f[nxt][p][q][r + 1] -= 51123987;
                ;
              }
            }
          }
  }
  long long Ans = 0;
  if (N % 3 == 0) {
    for (int i = cnt; i >= 1; --i) {
      Ans += f[i][N / 3][N / 3][N / 3];
      while (Ans >= 51123987) Ans -= 51123987;
      ;
    }
  } else if (N % 3 == 1) {
    for (int i = cnt; i >= 1; --i) {
      Ans += f[i][N / 3 + 1][N / 3][N / 3] + f[i][N / 3][N / 3 + 1][N / 3] +
             f[i][N / 3][N / 3][N / 3 + 1];
      while (Ans >= 51123987) Ans -= 51123987;
      ;
    }
  } else {
    for (int i = cnt; i >= 1; --i) {
      Ans += f[i][N / 3 + 1][N / 3 + 1][N / 3] +
             f[i][N / 3 + 1][N / 3][N / 3 + 1] +
             f[i][N / 3][N / 3 + 1][N / 3 + 1];
      while (Ans >= 51123987) Ans -= 51123987;
      ;
    }
  }
  cout << Ans;
  return 0;
}