#include<iostream>

#include<cstdio>

#include<cstring>

#include<vector>

#include<algorithm>

using namespace std;

struct data{

    int nxt[],end;

    data(){memset(nxt,,sizeof(nxt)); end=;}

}a[];

vector <int> g[]; //存边

int n,cnt,len,siz[];

long long f[];

char q[];

inline bool cmp(const int &A,const int &B) {return siz[A]<siz[B];}

inline void read_q(){

    char c=getchar(); len=;

    while(c<'a'||c>'z') c=getchar();

    while('a'<=c&&c<='z') q[len++]=c,c=getchar();

}

inline void insert_(int id){ //建树

    read_q();

    int u=;

    for(int i=len-;i>=;--i){

        int p=q[i]-'a';

        if(!a[u].nxt[p]) a[u].nxt[p]=++cnt;

        u=a[u].nxt[p];

    }a[u].end=id; //编号代替单词

}

inline void rebuild(int x,int p){ //重新建树

    if(a[x].end) g[p].push_back(a[x].end); //存在前缀关系连边

    for(int i=;i<;++i){

        int to=a[x].nxt[i];

        if(!to) continue;

        rebuild(to,a[x].end ? a[x].end:p);

    }

}

inline void dfs1(int x){

    siz[x]=;

    for(int i=;i<g[x].size();++i){

        int to=g[x][i];

        dfs1(to);

        siz[x]+=siz[to];

    }

    sort(g[x].begin(),g[x].end(),cmp); //按子树从小到大排序

}

inline void dfs2(int x){

    f[x]=x? :;

    long long tmp=;

    for(int i=;i<g[x].size();++i){

        int to=g[x][i];

        dfs2(to);

        f[x]+=f[to]+tmp; //贪心累加答案

        tmp+=siz[to];

    }

}

int main(){

    scanf("%d",&n);

    for(int i=;i<=n;++i) insert_(i);

    rebuild(,);

    dfs1();

    dfs2();

    printf("%lld",f[]);

    return ;

}