#include<bits/stdc++.h>
using namespace std;
#define int long long
#define inf (int)2e18
#define _ <<' '<<
#define nl '\n'
const int mod = 998244353, N = 62;
int c[N][N], d[N][N][N];
int f(char ch){
if(ch >= 'a' and ch <= 'z') return ch - 'a';
if(ch >= 'A' and ch <= 'Z') return ch - 'A' + 26;
return ch - '0' + 52;
}
int solve(set<string> st){
for(int i = 0; i < N; i++) for(int j = 0; j < N; j++) for(int k = 0; k < N; k++) c[i][j] = d[i][j][k] = 0;
for(string s : st){
c[f(s[0])][f(s.back())]++;
}
for(int w = 0; w < N; w++){
for(int x = 0; x < N; x++){
for(int y = 0; y < N; y++){
for(int z = 0; z < N; z++){
d[x][y][z] += c[w][x] * c[w][y] % mod * c[w][z];
d[x][y][z] %= mod;
}
}
}
}
int ans = 0;
for(int w = 0; w < N; w++){
for(int x = 0; x < N; x++){
for(int y = 0; y < N; y++){
for(int z = 0; z < N; z++){
ans += d[w][x][y] * d[w][x][z] % mod * d[w][y][z] % mod * d[x][y][z];
ans %= mod;
}
}
}
}
return ans;
}
void solve(){
int n;
cin>>n;
set<string> st[11];
for(int i = 0; i < n; i++){
string s;
cin>>s;
st[s.size()].insert(s);
reverse(s.begin(), s.end());
st[s.size()].insert(s);
}
int ans = 0;
for(int i = 3; i <= 10; i++){
ans += solve(st[i]);
ans %= mod;
}
cout<<ans<<nl;
}
signed main(){
ios_base::sync_with_stdio(0);
cin.tie(NULL);cout.tie(NULL);
int t = 1;
//cin>>t;
while(t--) solve();
return 0;
}
