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>
#pragma GCC optimize("Ofast")
#pragma GCC push_options
#pragma GCC optimize("unroll-loops")
using namespace std;
void doin() {
  cin.tie();
  cout.tie();
  ios::sync_with_stdio(0);
}
template <typename X, typename Y>
istream& operator>>(istream& in, pair<X, Y>& a) {
  in >> a.first >> a.second;
  return in;
}
template <typename T>
void getv(T& i) {
  cin >> i;
}
template <typename T, typename... Ns>
void getv(vector<T>& v, int n, Ns... ns) {
  v.resize(n);
  for (auto& i : v) getv(i, ns...);
}
template <typename T>
void getv1(T& i) {
  cin >> i;
}
template <typename T, typename... Ns>
void getv1(vector<T>& v, int n, Ns... ns) {
  v.resize(n + 1);
  for (int i = 1; i <= n; i++) getv(v[i], ns...);
}
inline void getch(char& x) {
  while (x = getchar_unlocked(), x < 33) {
    ;
  }
}
inline void getstr(string& str) {
  str.clear();
  char cur;
  while (cur = getchar_unlocked(), cur < 33) {
    ;
  }
  while (cur > 32) {
    str += cur;
    cur = getchar_unlocked();
  }
}
template <typename T>
inline bool sc(T& num) {
  bool neg = 0;
  int c;
  num = 0;
  while (c = getchar_unlocked(), c < 33) {
    if (c == EOF) return false;
  }
  if (c == '-') {
    neg = 1;
    c = getchar_unlocked();
  }
  for (; c > 47; c = getchar_unlocked()) num = num * 10 + c - 48;
  if (neg) num *= -1;
  return true;
}
using AntonTsypko = void;
using arsijo = AntonTsypko;
using god = arsijo;
uniform_real_distribution<double> double_dist(0, 1);
mt19937 rng(chrono::steady_clock::now().time_since_epoch().count());
mt19937_64 rng64(chrono::steady_clock::now().time_since_epoch().count());
int n;
map<string, int> used;
int id(char c) {
  if (c >= 'a' && c <= 'z') return c - 'a';
  if (c >= 'A' && c <= 'Z') return 26 + c - 'A';
  return 52 + c - '0';
}
inline int sym(int res[4]) {
  int a = 24;
  if (res[0] == res[1] && res[2] == res[1] && res[3] == res[2])
    a /= 24;
  else if (res[0] == res[1] && res[2] == res[1])
    a /= 6;
  else if (res[0] == res[1])
    a /= 2;
  if (res[0] != res[1]) {
    if (res[1] == res[2] && res[2] == res[3])
      a /= 6;
    else if (res[1] == res[2])
      a /= 2;
  }
  if (res[2] != res[1]) {
    if (res[2] == res[3]) a /= 2;
  }
  return a;
}
int main() {
  vector<vector<vector<vector<long long>>>> dp3(
      8, vector<vector<vector<long long>>>(
             62, vector<vector<long long>>(62, vector<long long>(62))));
  long long cnt[8][70][70], ans = 0;
  memset(cnt, 0, sizeof cnt);
  doin();
  cin >> n;
  string s;
  while (n--) {
    cin >> s;
    if (!used[s]) {
      used[s] = 1;
      cnt[s.size() - 3][id(s[0])][id(s.back())]++;
    }
    reverse(s.begin(), s.end());
    if (!used[s]) {
      used[s] = 1;
      cnt[s.size() - 3][id(s[0])][id(s.back())]++;
    }
  }
  int res[4];
  memset(res, 0, sizeof res);
  while (true) {
    bool inc = true;
    for (int i = 0; inc && i < 3; i++) {
      if (++res[i] == 62)
        res[i] = 0;
      else
        inc = 0;
    }
    for (int i = 1; i >= 0; i--) res[i] = max(res[i], res[i + 1]);
    for (res[3] = 0; res[3] < 62; res[3]++)
      for (int l = 0; l < 8; l++) {
        long long t = cnt[l][res[3]][res[1]];
        t *= cnt[l][res[3]][res[2]];
        if (t >= 998244353ll) t %= 998244353ll;
        t *= cnt[l][res[0]][res[3]];
        if (t >= 998244353ll) t %= 998244353ll;
        dp3[l][res[0]][res[1]][res[2]] += t;
        if (dp3[l][res[0]][res[1]][res[2]])
          dp3[l][res[0]][res[1]][res[2]] %= 998244353ll;
      }
    if (inc) break;
  }
  memset(res, 0, sizeof res);
  int F = 0;
  while (true) {
    bool inc = true;
    for (int i = 0; inc && i < 4; i++) {
      if (++res[i] == 62)
        res[i] = 0;
      else
        inc = 0;
    }
    for (int i = 2; i >= 0; i--) res[i] = max(res[i], res[i + 1]);
    for (int l = 0; l < 8; l++) {
      long long t = dp3[l][res[0]][res[1]][res[2]];
      t *= dp3[l][res[1]][res[2]][res[3]];
      if (t >= 998244353ll) t %= 998244353ll;
      long long t2 = dp3[l][res[0]][res[1]][res[3]];
      t2 *= dp3[l][res[0]][res[2]][res[3]];
      if (t2 >= 998244353ll) t2 %= 998244353ll;
      t *= t2;
      if (t >= 998244353ll) t %= 998244353ll;
      if (t) t *= sym(res);
      if (t >= 998244353ll) t %= 998244353ll;
      ans += t;
      if (ans >= 998244353ll) ans %= 998244353ll;
    }
    if (inc) break;
  }
  cout << ans;
  return 0;
}