#include<bits/stdc++.h>
#define ll long long
using namespace std;

const int MAXN=200200;
const int MAXM=26;
const int MAXG=18;
int n,m;
int par[MAXG][MAXN],tr[MAXN][MAXM],dest[MAXN],inc[MAXN];
string s[MAXN];
vector<int> vec[MAXN];
map<vector<int>,vector<string> > mp;
map<vector<int>,vector<string> >::iterator it;

int getLcp(string &s1,string &s2)
{
	int ret=0;
	while(ret<m&&s1[ret]==s2[ret])
		ret++;
	return ret;
}

int getPar(int x,int dis)
{
	for(int i=0;(1<<i)<=dis;i++)
	{
		if(dis&(1<<i))
			x=par[i][x];
	}
	return x;
}
ll cal()
{
	if(m==1)
		return 1ll*n*(n-1)/2;
	sort(s,s+n);
	ll ret=0;
	int cnt=0,i,j,c;
	memset(tr[0],0,sizeof(tr[0]));
	vec[0].clear();
	for(i=0;i<n;i++)
	{
		vec[0].push_back(i);
		int v=0;
		for(j=m-1;j>=0;j--)
		{
			c=s[i][j]-'a';
			if(!tr[v][c])
			{
				tr[v][c]=++cnt;
				par[0][cnt]=v;
				vec[cnt].clear();
				memset(tr[cnt],0,sizeof(tr[cnt]));
			}
			v=tr[v][c];
			vec[v].push_back(i);
		}
		dest[i]=v;
	}
	for(i=1;i<=cnt;i++)
		sort(vec[i].begin(),vec[i].end());
	for(j=1;j<MAXG;j++)
		for(i=1;i<=cnt;i++)
			par[j][i]=par[j-1][par[j-1][i]];
	for(i=0;i<n;i++)
	{
		inc[m-1]=m-1;
		for(j=m-2;j>=0;j--)
		{
			if(s[i][j]<=s[i][j+1])
				inc[j]=inc[j+1];
			else
				inc[j]=j;
		}
		int l=i+1;
		for(int lcp=m-1;lcp>=0;lcp--)
		{
			int lef=l-1,rig=n;
			while(lef+1<rig)
			{
				int mid=(lef+rig)>>1;
				int tmp=getLcp(s[i],s[mid]);
				if(tmp<lcp)
					rig=mid;
				else
					lef=mid;
			}
			int r=rig;
			if(l==r)
				continue;
			int p=getPar(dest[i],inc[lcp]+1);
			ret+=lower_bound(vec[p].begin(),vec[p].end(),r)
				-lower_bound(vec[p].begin(),vec[p].end(),l);
			l=r;
		}
	}
	return ret;
}

int main()
{
	ios::sync_with_stdio(false);
	int i,j;
	ll ans;
	cin>>n;
	for(i=0;i<n;i++)
	{
		cin>>s[i];
		vector<int> tmp(26,0);
		for(j=0;j<s[i].length();j++)
			tmp[s[i][j]-'a']++;
		mp[tmp].push_back(s[i]);
	}
	m=s[0].length();
	ans=1337ll*n*(n-1)/2;
	for(it=mp.begin();it!=mp.end();++it)
	{
		n=0;
		for(i=0;i<it->second.size();i++)
			s[n++]=(it->second)[i];
		ans+=(2ll-1337ll)*n*(n-1)/2;
		ans-=cal();
	}
	cout<<ans<<endl;
}
