/*
贪心+字典树
首先第一个条件肯定不是最优的,所以我们得让s的后缀都在s前面,我们可以把字符串翻转建trie,删除所有不是字符串尾部的节点,然后就是找一种编号方式。
比较显然的是我们可以通过按照子树大小排序然后贪心dfs序。
*/
#include<cstdio>
#include<iostream>
#include<vector>
#include<algorithm>
#include<cstring>
#define N 100010
#define M 500010
using namespace std;
int n,tot=1,a[M][27],id[M],fa[N],head[N],sz[N],f[N],cnt;
char s[M];
struct node{int v,pre;}e[N];
vector<pair<int,int> > v[N];
void add(int x,int y){
e[++cnt].v=y;e[cnt].pre=head[x];head[x]=cnt;
fa[y]=x;
}
void dfs(int x,int f){
if(id[x])add(f,id[x]),f=id[x];
for(int i=0;i<=25;i++) if(a[x][i])dfs(a[x][i],f);
}
void getsz(int x){
sz[x]=1;
for(int i=head[x];i;i=e[i].pre){
getsz(e[i].v);
sz[x]+=sz[e[i].v];
v[x].push_back(make_pair(sz[e[i].v],e[i].v));
}
sort(v[x].begin(),v[x].end());
}
void getf(int x){
if(x)f[x]=++tot;
for(int i=0;i<v[x].size();i++)getf(v[x][i].second);
}
int main(){
scanf("%d",&n);
for(int i=1;i<=n;i++){
scanf("%s",s+1);int len=strlen(s+1),now=1;
for(int j=len;j;j--){
int x=s[j]-‘a‘;
if(!a[now][x])a[now][x]=++tot;
now=a[now][x];
}
id[now]=i;
}
dfs(1,0);
getsz(0);
tot=0;
getf(0);
long long ans=0;
for(int i=1;i<=tot;i++)ans+=(long long)f[i]-f[fa[i]];
cout<<ans;
return 0;
}