Problem: A cubeword is a special type of a crossword. When building a cubeword, you start by choosing a positive integer a: the side length of the cube. Then, you build a big cube consisting of a × a × a unit cubes. This big cube has 12 edges. Then, you discard all unit cubes that do not touch the edges of the big cube. The figure below shows the object you will get for a=6.

<image>

Finally, you assign a letter to each of the unit cubes in the object. You must get a meaningful word along each edge of the big cube. Each edge can be read in either direction, and it is sufficient if one of the two directions of reading gives a meaningful word.

The figure below shows the object for a=6 in which some unit cubes already have assigned letters. You can already read the words 'SUBMIT', 'ACCEPT' and 'TURING' along three edges of the big cube.

<image>

You are given a list of valid words. Each word from the wordlist may appear on arbitrarily many edges of a valid cubeword. Find and report the number of different cubewords that can be constructed, modulo 998,244,353.

If one cubeword can be obtained from another by rotation or mirroring, they are considered distinct.

Input

The first line contains a single integer n (1 ≤ n ≤ 100,000) – the number of words.

Then, n lines follow. Each of these lines contains one word that can appear on the edges of the big cube. The length of each word is between 3 and 10, inclusive.

It is guaranteed that all words are different.

Output

Output a single integer, the number of distinct cubewords for the given list of valid words modulo 998,244,353.

Scoring

Subtask 1 (21 points): the words consist only of letters 'a' - 'f' (lowercase)

Subtask 2 (29 points): the words consist only of letters 'a' - 'p' (lowercase)

Subtask 3 (34 points): the words consist of letters 'a' - 'p' (lowercase) and 'A' - 'P' (uppercase)

Subtask 4 (16 points): the words consist of letters 'a' - 'z' (lowercase), 'A' - 'Z' (uppercase) and digits '0' - '9'

Examples

Input


1
radar


Output


1


Input


1
robot


Output


2


Input


2
FLOW
WOLF


Output


2


Input


2
baobab
bob


Output


4097


Input


3
TURING
SUBMIT
ACCEPT


Output


162


Input


3
MAN1LA
MAN6OS
AN4NAS


Output


114

Note

In the first sample, the only possibility is for the word "radar" to be on each edge of the cube.

In the second sample, there are two cubes, which are just rotations of each other – the word "robot" is on every edge, and the difference between the two cubes is whether the lower left front corner contains 'r' or 't'.

The third sample is similar to the second one. The fact that we can read the word on each edge in both directions does not affect the answer.

In the fourth sample, there is one cube with the word "bob" on each edge. There are also 2^{12} = 4096 cubes with the word "baobab" on each edge. (For each of the 12 edges, we have two possible directions in which the word "baobab" can appear.)

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
template <class A, class B>
inline bool mina(A &first, B second) {
  return (first > second) ? (first = second, 1) : 0;
}
template <class A, class B>
inline bool maxa(A &first, B second) {
  return (first < second) ? (first = second, 1) : 0;
}
template <typename Int, Int mod>
class ModInt {
 public:
  static const Int Mod = mod;
  Int first;
  ModInt() { first = 0; }
  ModInt(int a) {
    Int t = a % mod;
    if (t < 0) t += mod;
    first = t;
  }
  ModInt(long long a) {
    Int t = a % mod;
    if (t < 0) t += mod;
    first = t;
  }
  Int get() const { return first; }
  ModInt &operator+=(ModInt that) {
    if ((first += that.first) >= mod) first -= mod;
    return *this;
  }
  ModInt &operator-=(ModInt that) {
    if ((first += mod - that.first) >= mod) first -= mod;
    return *this;
  }
  ModInt &operator*=(ModInt that) {
    first = (long long)(first)*that.first % mod;
    return *this;
  }
  bool operator==(ModInt that) const { return first == that.first; }
  ModInt operator+(ModInt that) const { return ModInt(*this) += that; }
  ModInt operator-(ModInt that) const { return ModInt(*this) -= that; }
  ModInt operator*(ModInt that) const { return ModInt(*this) *= that; }
  ModInt operator-() const { return ModInt(-this->first); }
  inline friend ostream &operator<<(ostream &out, ModInt m) {
    return out << m.first;
  }
  ModInt power(long long k) const {
    ModInt r(1);
    ModInt b = *this;
    if (k <= 0) return r;
    while (k) {
      if (k & 1) r *= b;
      b *= b;
      k >>= 1;
    }
    return r;
  }
  ModInt inverse() const {
    long long a = first, b = mod, u = 1, v = 0;
    while (b) {
      long long t = a / b;
      a -= t * b;
      swap(a, b);
      u -= t * v;
      swap(u, v);
    }
    return ModInt(u);
  }
};
const int MAXN = 1e5 + 5;
const int MAXC = 62;
int N;
ModInt<int, (998244353)> cnt[MAXC + 5][MAXC + 5];
int id(char c) {
  if (c >= 'a' && c <= 'z')
    return c - 'a';
  else if (c >= 'A' && c <= 'Z')
    return c - 'A' + 26;
  else
    return c - '0' + 52;
}
ModInt<int, (998244353)> dp[MAXC + 5][MAXC + 5][MAXC + 5];
ModInt<int, (998244353)> cal(int a, int b, int c) {
  int in[3] = {a, b, c};
  sort(in, in + 3);
  return dp[a][b][c];
}
int fac[5] = {1, 1, 2, 6, 24};
int cnt_perm(int a, int b, int c, int d) {
  if (a == b && b == c && c == d) return 1;
  if (a == b && b == c && c != d) return 4;
  if (a == b && b != c && c == d) return 6;
  if (a == b && b != c && c != d) return 12;
  if (a != b && b == c && c == d) return 4;
  if (a != b && b == c && c != d) return 12;
  if (a != b && b != c && c == d) return 12;
  return 24;
}
ModInt<int, (998244353)> solve(set<string> &words) {
  for (int i = 0; (i) < (MAXC + 5); ++(i))
    for (int j = 0; (j) < (MAXC + 5); ++(j)) cnt[i][j] = 0;
  for (int i = 0; (i) < (MAXC + 5); ++(i))
    for (int j = 0; (j) < (MAXC + 5); ++(j))
      for (int k = 0; (k) < (MAXC + 5); ++(k)) dp[i][j][k] = 0;
  for (const string &s : words) {
    int ss = id(s.front());
    int ee = id(s.back());
    cnt[ss][ee] += 1;
  }
  for (int i = 0; i < MAXC; i++) {
    for (int j = i; j < MAXC; j++) {
      for (int k = j; k < MAXC; k++) {
        for (int first = 0; (first) < (MAXC); ++(first)) {
          dp[i][j][k] += cnt[first][i] * cnt[first][j] * cnt[first][k];
        }
      }
    }
  }
  ModInt<int, (998244353)> res = 0;
  for (int a = 0; (a) < (MAXC); ++(a)) {
    for (int b = a; b < MAXC; b++) {
      for (int c = b; c < MAXC; c++) {
        for (int d = c; d < MAXC; d++) {
          res += cal(a, b, c) * cal(a, b, d) * cal(a, c, d) * cal(b, c, d) *
                 cnt_perm(a, b, c, d);
        }
      }
    }
  }
  return res;
}
int main() {
  set<string> words[11];
  scanf("%d", &N);
  for (int i = 0; (i) < (N); ++(i)) {
    string s;
    cin >> s;
    words[((int)(s).size())].insert(s);
    reverse(s.begin(), s.end());
    words[((int)(s).size())].insert(s);
  }
  ModInt<int, (998244353)> ans = 0;
  for (int i = 0; (i) < (11); ++(i)) {
    if (words[i].empty()) continue;
    ans += solve(words[i]);
  }
  cout << ans << endl;
  return 0;
}