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

typedef unsigned long long ull;
typedef long long ll;
typedef pair<int, int> pii;
typedef pair<ll, ll> pll;
typedef pair<double, double> pdd;
typedef vector<ll> vl;
typedef vector<vector<ll>> vvl;
//typedef vector<vector<ll>> Graph;

const ll mod = 1e9 + 7;
//const ll mod = 998244353;

#define REP(i,n) for(ll i=0;i<(ll)n;i++)
#define dump(x)  cerr << #x << " = " << (x) << endl;
#define spa << " " <<
#define fi first
#define se second

template<class T> bool chmax(T &a, const T &b) { if (a<b) { a=b; return 1; } return 0; }
template<class T> bool chmin(T &a, const T &b) { if (a>b) { a=b; return 1; } return 0; }

template<class S, class T> ostream& operator << (ostream& os, const pair<S, T> v){
os << "(" << v.first << ", " << v.second << ")"; return os;
}
template<class T> ostream& operator << (ostream& os, const vector<T> v){
for(int i = 0; i < (int)v.size(); i++){if(i > 0){os << " ";} os << v[i];} return os;
}
template<class T> ostream& operator << (ostream& os, const vector<vector<T>> v){
for(int i = 0; i < (int)v.size(); i++){if(i > 0){os << endl;} os << v[i];} return os;
}

struct Trie{
    char a_init; // 最初の文字
    int D; // 文字の種類数
    int INVALID = -1;
    std::vector<std::vector<int>> child;
    // 子のid．サイズは（頂点数，文字の種類数）で，child[v][c]は「頂点vから文字cで下降したときの頂点のid」
    // 行き先に頂点がない場合はINVALIDが格納される
    using T_NODE = int;
    vector<T_NODE> v_info;
    vector<int> par;
    vector<int> par_edge;
    // v_info には適当に頂点vの性質をメモすることができる
    // 例えば add_word の info に1を入れると出現回数のカウントができる
    Trie(char a_init = 'a', int D = 26) : a_init(a_init), D(D), child(1, std::vector<int>(D, INVALID)), v_info(1) {}
    int add_word(string str, T_NODE info) {
        int now = 0; // 頂点のid
        for (auto &c : str) {
            if (child[now][c - a_init] == INVALID) {
                int sz = child.size();
                child[now][c - a_init] = sz;
                child.emplace_back(std::vector<int>(D, INVALID));
                sz++;
                v_info.resize(sz);
                par.resize(sz);
                par_edge.resize(sz);
            }
            int ch = child[now][c - a_init];
            par[ch] = now;
            par_edge[ch] = c - a_init;
            now = ch;
        }
        v_info[now] += info;
        return now;
    }

    // 操作はこの上でdfsなどをすればOK
};

template<typename T> void debug(vector<vector<T>>&v,ll h,ll w){for(ll i=0;i<h;i++)
{cerr<<v[i][0];for(ll j=1;j<w;j++)cerr spa v[i][j];cerr<<endl;}};
template<typename T> void debug(vector<T>&v,ll n){if(n!=0)cerr<<v[0];
for(ll i=1;i<n;i++)cerr spa v[i];
cerr<<endl;};

int main(){
    cin.tie(0);
    ios::sync_with_stdio(false);

    ll N;
    cin >> N;
    vector<string> S(N);
    REP(i, N) cin >> S[i];
    REP(i, N) reverse(S[i].begin(), S[i].end());

    Trie trie('a', 26);
    trie.add_word("", 0);
    vl idx(N);
    REP(i, N){
        idx[i] = trie.add_word(S[i], 1);
    }

    ll res = 0;
    REP(i, N){
        ll now = idx[i];
        set<ll> st;
        while(now>0){
            st.insert(trie.par_edge[now]);
            now = trie.par[now];
            for(auto s: st){
                if(trie.child[now][s] != -1)res += trie.v_info[trie.child[now][s]];
            }
        }
    }

    cout << res - N << endl;

    return 0;
}

Measured memory_bytes: 148800