#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
const int N=110000,M=1100000,B=128,L=3;
const int mask=514,base=19260817,mod=1e9+9;
inline int pw(int x,int y){
	int z=1;
	while(y){
		if(y&1)
			z=1ll*z*x%mod;
		x=1ll*x*x%mod;
		y>>=1; 
	}
	return z;
}
int n,m;
int c[B];
int len[N];
string s[N];
vector <int> id[M];
vector <int> v[N];
int p[M],pt[M],inv[M];
int nw=1,son[M][L];
int cnt[M],siz[M],hsh[M];
int g[M];
int d[N];
inline int calc(int i,int j,ll l,ll r){
	int res=0;
	if((l/(j+1))==(r/(j+1))){
		int x=l-(l/(j+1))*(j+1);
		int y=r-(r/(j+1))*(j+1);
		res=(res+hsh[v[i][y]])%mod;
		if(x)
			res=(res-1ll*hsh[v[i][x-1]]*p[y-x+1])%mod;
		res=(res+mod)%mod;
		return res;
	}
	int x=l-(l/(j+1))*(j+1);
	if(x){
		res=(res+hsh[v[i][j]])%mod;
		res=(res-1ll*hsh[v[i][x-1]]*p[j-x+1])%mod;
	}
	int sum=(r/(j+1))-(l/(j+1))-(bool)(x);
	res=1ll*res*pt[1ll*sum*(j+1)/len[0]]%mod*p[1ll*sum*(j+1)%len[0]]%mod;
	res=(res+1ll*hsh[v[i][j]]*(1ll*pt[1ll*sum*(j+1)/len[0]]*p[1ll*sum*(j+1)%len[0]]%mod-1)%mod*inv[j+1])%mod;
	int y=r-(r/(j+1))*(j+1);
	res=1ll*res*p[y+1]%mod;
	res=(res+hsh[v[i][y]])%mod;
	res=(res+mod)%mod;
	return res;
}
int main(){
	len[0]=1e6;
	p[0]=1;
	for(int j=1;j<=len[0];j++)
		p[j]=1ll*p[j-1]*base%mod;
	pt[0]=1;
	for(int j=1;j<=len[0];j++)
		pt[j]=1ll*pt[j-1]*p[len[0]]%mod;
	inv[0]=0;
	for(int j=1;j<=len[0];j++)
		inv[j]=pw(p[j]-1,mod-2);
	c['P']=0,c['N']=1,c['K']=2;
	scanf("%d",&n);
	for(int i=1;i<=n;i++){
		cin>>s[i];
		len[i]=s[i].size();
		int x=1;
		siz[x]++;
		for(int j=0;j<len[i];j++){
			if(son[x][c[s[i][j]]]==0){
				son[x][c[s[i][j]]]=++nw;
				hsh[nw]=(1ll*hsh[x]*base+c[s[i][j]]+mask)%mod;
			}
			x=son[x][c[s[i][j]]];
			v[i].push_back(x);
			siz[x]++;
		}
		cnt[x]++;
		id[x].push_back(i);
	}
	for(int i=1;i<=n;i++){
		int y=1;
		for(int j=0;j<len[i];j++){
			d[i]+=siz[son[y][(c[s[i][j]]+1)%L]];
			y=son[y][c[s[i][j]]];
			if(j==len[i]-1||cnt[y]==0)
				continue;
			ll l=0,r=1ll*(j+1)*len[i];
			while(l!=r){
				ll mid=(l+r)>>1;
				if(calc(i,j,0,mid)==calc(i,len[i]-1,0,mid))
					l=mid+1;
				else
					r=mid;
			}
			if(r==1ll*(j+1)*len[i])
				g[y]++;
			else{
				int a=calc(i,len[i]-1,l,r)-mask,b=calc(i,j,l,r)-mask;
				if((a+1)%L==b)
					d[i]+=cnt[y];
				else
					g[y]++;
			}
		}
	}
	for(int i=1;i<=n;i++)
		d[i]+=g[v[i][len[i]-1]];
	for(int i=1;i<=nw;i++)
		for(int j=0;j<(int)id[i].size();j++)
			d[id[i][j]]+=j;
	ll ans=1ll*n*(n-1)*(n-2)/6;
	for(int i=1;i<=n;i++)
		ans-=1ll*d[i]*(d[i]-1)/2;
	printf("%lld",ans);
	return 0;
}