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

const int maxn = 2050;

int n;
string str[maxn];

vector< pair<int,int> >pos[30];

int num[610000];

signed main()
{
	ios_base::sync_with_stdio(false);
	cin.tie(0);
	
	cin>>n;
	for(int i=1;i<=n;i++) cin>>str[i];
	sort(str+1,str+n+1);
	n= unique(str+1,str+n+1)-str-1;
	
	for(int i=1;i<=n;i++) for(int j=i+1;j<=n;j++) if(str[i].size()==str[j].size())
	{
		int len=str[i].size();
		int mnd=len,mxd=-1;
		for(int k=0;k<len;k++) if(str[i][k]!=str[j][k])
		{
			mnd=min(mnd,k);
			mxd=max(mxd,k);
		}
		if(mxd==mnd+1 && mnd>=0 && mxd<len) pos[mnd].emplace_back(i,j);
	}
	
	int ans=0;
	for(int l=0;l<20;l++)
	{
		memset(num,0,sizeof num);
		for(auto [i,j]:pos[l])
		{
			int x= (str[i][l]-'A'+1)*27+(str[i][l+1]-'A'+1);
			int y= (str[j][l]-'A'+1)*27+(str[j][l+1]-'A'+1);
			if(x>y) swap(x,y);
			int cc= x*27*27+y;
			
			if(num[cc]==0) ans++;
			if(num[cc]==1) ans--;
			num[cc]++;
		}
	}
	cout<<ans<<endl;
	
	return 0;
}