#include <bits/stdc++.h>
using namespace std;
const int C = 62, mod = 998244353;
int w[C][C];
int cnt[C][C][C], ans=0;
vector<string> v[11];
map<char,int> id;
void add(int &x,int y)
{
x+=y;
if (x>=mod) x-=mod;
}
void solve(int sz)
{
for (int i=0;i<C;i++)
for (int j=0;j<C;j++)
{
w[i][j]=0;
for (int k=0;k<C;k++) cnt[i][j][k]=0;
}
set<string> se;
for (auto i:v[sz])
{
se.insert(i);
string s=i;reverse(s.begin(),s.end());
se.insert(s);
}
for (auto i:se)
w[id[i[0]]][id[i[sz-1]]]++;
for (int i=0;i<C;i++)
for (int j=0;j<C;j++)
for (int k=0;k<C;k++)
for (int l=0;l<C;l++)
add(cnt[i][j][k],1ll*w[i][l]*w[j][l]*w[k][l]%mod);
for (int i=0;i<C;i++)
for (int j=0;j<C;j++)
for (int k=0;k<C;k++)
for (int l=0;l<C;l++)
add(ans,1ll*cnt[i][j][k]*cnt[i][k][l]%mod*cnt[i][j][l]%mod*cnt[j][k][l]%mod);
}
int main()
{
ios::sync_with_stdio(0);
cin.tie(NULL), cout.tie(NULL);
int x=0;
for (char c='a';c<='z';c++) id[c]=x++;
for (char c='A';c<='Z';c++) id[c]=x++;
for (char c='0';c<='9';c++) id[c]=x++;
int n;
cin>>n;
for (int i=0;i<n;i++)
{
string s;
cin>>s;
v[s.size()].push_back(s);
}
for (int i=3;i<=10;i++)
if (v[i].size())
solve(i);
cout<<ans<<endl;
return 0;
}
