#include<bits/stdc++.h>
using namespace std;
typedef long long LL;
const int N=1e5+5,mod=998244353;
int n;
char ch[N][10];
LL cnt[9][65][65];
LL f[9][65][65][65];
int encode(char ch)
{
    if(ch>='a'&&ch<='z')
    {
        return ch-'a'+1;
    }else if(ch>='A'&&ch<='Z'){
        return ch-'A'+1+26;
    }else{
        return ch-'0'+1+26+26;
    }
}
int M=62;
LL ans;
string s[N*2];
int main()
{
    scanf("%d",&n);
    int tot=0;
    for(int i=1;i<=n;i++)
    {
        tot++;
        scanf("%s",ch[i]);
        bool fl=1;
        s[tot]="";
        for(int j=0;j<strlen(ch[i]);j++)
        {
            s[tot]+=ch[i][j];
        }
        for(int j=0;j<strlen(ch[i]);j++)
        {
            if(ch[i][j]!=ch[i][strlen(ch[i])-j-1])
            {
                fl=0;break;
            }
        }
        if(fl==0)
        {
            tot++;s[tot]="";
            for(int j=0;j<strlen(ch[i]);j++)
            {
                s[tot]+=ch[i][strlen(ch[i])-j-1];
            }
        }
    //    cout<<i<<' '<<fl<<endl;
    }
    sort(s+1,s+tot+1);
    for(int i=1;i<=tot;i++)
    {
        if(i==1||s[i-1]<s[i])
        {
        //    cout<<1<<' '<<s[i].size()<<endl;
            cnt[s[i].size()-2][encode(s[i][0])][encode(s[i][s[i].size()-1])]++;
        }
    }
//    cout<<encode('T')<<endl;
    for(int len=1;len<=8;len++)
    {
        for(int i=1;i<=M;i++)
        {
            for(int j=1;j<=M;j++)
            {
                for(int k=1;k<=M;k++)
                {
                    for(int t=1;t<=M;t++)
                    {
                        f[len][j][k][t]+=cnt[len][i][j]*cnt[len][i][k]%mod*cnt[len][i][t]%mod;
                        f[len][j][k][t]%=mod;
                    }
                }
            }
        }
    }
    for(int len=1;len<=8;len++)
    {
        for(int i=1;i<=M;i++)
        {
            for(int j=1;j<=i;j++)
            {
                for(int k=1;k<=j;k++)
                {
                    LL sum=0;
                    for(int t=1;t<=k;t++)
                    {
                    LL s=f[len][t][i][j]*f[len][t][j][k]%mod*f[len][t][k][i]%mod;
                    if(t==k&&k==j&&j==i)
                    {
                        ;
                    }else if(j==i&&t==k){
                        s*=6;s%=mod;
                    }else if(j==i&&k==j)
                    {
                        s*=4;s%=mod;
                    }else if(k==j&&t==k)
                    {
                        s*=4;s%=mod;
                    }else if((k==j)+(t==k)+(j==i)==1)
                    {
                        s*=12;s%=mod;
                    }else{
                        s*=24;s%=mod;
                    }
                    sum+=s;sum%=mod;
                    }
                    ans+=sum*f[len][i][j][k]%mod;
                    ans%=mod;
                }
            }
        }
    /*    for(int i=1;i<=M;i++)
        {
            for(int j=1;j<=M;j++)
            {
                LL cur=0;
                for(int k=1;k<=M;k++)
                {
                    for(int l=1;l<=M;l++)
                    {
                        LL s=0;
                        for(int r=1;r<=M;r++)
                        {
                            s+=cnt[len][r][i]*cnt[len][r][k]%mod*f[len][r][j][l]%mod;
                            s%=mod;
                        }
                        if(i==1&&j==1&&k==1&&l==1)
                        {
                        //    cout<<s<<endl;
                        }
                        cur+=s*s%mod*cnt[len][l][k]%mod;
                        cur%=mod;
                    }
                }
                ans+=cur*cnt[len][j][i]%mod;
                ans%=mod;
            }
        }*/
    }
    printf("%lld\n",ans);
    return 0;
}