#include <bits/stdc++.h>
#include <ext/pb_ds/assoc_container.hpp>
#include <ext/pb_ds/tree_policy.hpp>
#define int long long

#define all(X) (X).begin(), (X).end()
#define reset(X) memset(X, 0, sizeof(X))
#define mp(a, b) make_pair(a, b)
#define pb push_back
#define endl '\n'
#define fi first
#define se second

using namespace __gnu_pbds;
using namespace std;
const int mod = 1e9 + 7;
// const int mod=998244353;
//const int mod=1e9+9;
//const int INF=4e18+10;
const int INF = 4e18 + 10;
template <typename T>
using ordered_set = tree<T, null_type, less<T>, rb_tree_tag, tree_order_statistics_node_update>;
template <typename T>
using ordered_multiset = tree<T, null_type, less_equal<T>, rb_tree_tag, tree_order_statistics_node_update>;

#define read(n) \
int n;      \
cin >> n;
#define readv(x, n)   \
vector<int> x(n); \
for (auto &i : x) \
    cin >> i;

typedef vector<int> vi;
typedef vector<vector<int>> vvi;
typedef pair<int, int> pii;

template <typename T1, typename T2>
void set_min(T1 &a, T2 b)
{
    a = min(a, (T1)b);
}

int multiply(int a, int b, int in_mod) { return (a * b) % in_mod; }
int mult_identity(int a) { return 1; }


auto power(auto a, int b, int in_mod)
{
    auto prod = mult_identity(a);
    auto mult = a % in_mod;
    while (b != 0)
    {
        if (b % 2)
        {
            prod = multiply(prod, mult, in_mod);
        }
        mult = multiply(mult, mult, in_mod);
        b /= 2;
    }
    return prod;
}
int mod_inv(int q, int in_mod)
{

    return power(q, in_mod - 2, in_mod);
}

const int K = 26;

struct Vertex {
    int next[K];
    bool leaf = false;
    int leafs_cnt = 0;
    int cnt[K];

    Vertex() {
        fill(begin(next), end(next), -1);
        fill(begin(cnt), end(cnt), 0);
    }
};
#define trie sad_trie

vector<Vertex> trie(1);
void add_string(string const& s) {
    int v = 0;
    for (char ch : s) {
        int c = ch - 'a';
        if (trie[v].next[c] == -1) {
            trie[v].next[c] = trie.size();
            trie.emplace_back();
        }
        trie[v].leafs_cnt++;
        v = trie[v].next[c];
    }


    trie[v].leaf = true;
    trie[v].leafs_cnt++;
}

void simplify(int v, int way)
{

    for(int i= 0;i<K;i++)
    {
        if(trie[v].next[i] != -1)
        {
            simplify(trie[v].next[i], i);
        }


    }



    for(int i= 0;i<K;i++)
    {
        if(trie[v].next[i] != -1)
        {
            for(int j = 0;j<K;j++)
            {
                trie[v].cnt[j] += trie[trie[v].next[i]].cnt[j];
            }
        }
    }
    if(way != -1)
        trie[v].cnt[way] = trie[v].leafs_cnt ;

}

void solve()
{
    int n;
    cin>>n;
    vector<string> s(n);
    for(int i= 0;i<n;i++)
    {
        cin>>s[i];
        reverse(all(s[i]));
        add_string(s[i]);
    }
    simplify(0, -1);
    int ways = 0;
    for(auto i:s)
    {
        int v = 0;
        int n = i.size() -1;
        for(int j= 0;j<n;j++)
            v = trie[v].next[i[j]-'a'];
        for(int j = 0;j<K;j++)
        {

            if(trie[v].next[j]!=-1)
            {
                ways += trie[trie[v].next[j]].cnt[i[n]-'a'];
            }
        }
        ways--;
    }
    assert(ways>=0);
    assert(ways<=(n*(n-1))/2);
    cout<<ways<<endl;

}


signed main()
{
    ios_base::sync_with_stdio(false);
    cin.tie(NULL);
    cerr.tie(NULL);
#ifndef ONLINE_JUDGE
    if (fopen("INPUT.txt", "r"))
    {
        freopen("INPUT.txt", "r", stdin);
        freopen("OUTPUT.txt", "w", stdout);
    }
#endif
    auto clk = clock();
    mt19937 rng(chrono::steady_clock::now().time_since_epoch().count());
    // -------------------------------------Code starts here---------------------------------------------------------------------

    int t = 1;
    // cin >> t;

    for (int test = 1; test <= t; test++)
    {
        // cout<<"Case #"<<test<<":\n";
        //cout<<"Trip #"<<test<<": ";
        // cout<<endl;
        solve();
        // solveB();

        // cout<<endl;
    }

    // -------------------------------------Code ends here------------------------------------------------------------------

    clk = clock() - clk;
    // cerr << fixed << setprecision(6) << "Time: " << ((long double)clk) / CLOCKS_PER_SEC << "\n";
    return 0;
}


Measured memory_bytes: 453060