#pragma comment(linker, "/stack:200000000")
#pragma GCC optimize("Ofast")
#pragma GCC target("sse,sse2,sse3,ssse3,sse4,popcnt,abm,mmx,avx,tune=native")
#pragma GCC optimize("unroll-loops")

#include <cstdio>
#include <cstdlib>
#include <iostream>
#include <fstream>
#include <sstream>
#include <set>
#include <map>
#include <vector>
#include <list>
#include <algorithm>
#include <cstring>
#include <cmath>
#include <string>
#include <queue>
#include <bitset>		//UWAGA - w czasie kompilacji musi byc znany rozmiar wektora - nie mozna go zmienic
#include <cassert>
#include <iomanip>		//do setprecision
#include <ctime>
#include <complex>
#include <chrono>
#include<unordered_map>
using namespace std;

#define FOR(i,b,e) for(int i=(b);i<(e);++i)
#define FORQ(i,b,e) for(int i=(b);i<=(e);++i)
#define FORD(i,b,e) for(int i=(b)-1;i>=(e);--i)
#define REP(x, n) for(int x = 0; x < (n); ++x)
#define ALL(u) (u).begin(),(u).end()

#define ST first
#define ND second
#define PB push_back
#define MP make_pair
#define LL long long
#define ULL unsigned LL
#define LD long double

typedef pair<int, int> PII;
typedef pair<LL, LL> PLL;
typedef tuple<int, int, int> TIII;
typedef vector<int> VI;

const double pi = 3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342;

void fast_io() {
    ios_base::sync_with_stdio(0);
    cin.tie(0);
    cout.tie(0);
}

const int MR = 1e6 + 10;
const int MS = 30;

int trie[MR][MS], cnt;

// ile slow sie konczy i ile konczy sie na dana litere w poddrzewie
struct
{
    int subTree[MS];
}ile[MR];

char s[MR];
int dl;
LL res;

int frq[MS];
void add(int nr, int dl)
{
    if (nr)
    {
        // zmniejsz wystepowanie kolejnych liter, gdy idziesz do kolejnego wierzcholka
        frq[s[dl] - 'a']--;
    }

    // pierwsza litera moze zawedrowac gdziekolwiek, trzeba dodac liczbe wyrazow, ktore wystapily w poddrzewie z ta litera
    if (dl == 1)
        res += ile[nr].subTree[s[0] - 'a'];

    // zwieksz liczbe wystapien odpowiednich liter w poddrzewach
    // zwroc uwage, zeby tego samego wyrazu nie liczyc w poddrzewie kilkukrotnie
    // trzeba dodac jeden, jesli z tego wyrazu pozniej dodamy jakas litere
    FORQ(c, 'a', 'z')
        ile[nr].subTree[c - 'a'] += frq[c - 'a'] ? 1 : 0;

    if (!dl)
    {
        return;
    }

    int wsk = s[dl - 1] - 'a';

    // zobacz czy potrzebny nowy wierzch trie
    if (!trie[nr][wsk])
        trie[nr][wsk] = ++cnt;

    add(trie[nr][wsk], dl - 1);
}

int main()
{
    fast_io();
    int N;
    scanf("%d", &N);
    vector < pair<int, string> > V;
    REP(i, N)
    {
        scanf("%s", s);
        string tmp(s);
        V.push_back(MP(tmp.length(), tmp));
    }

    sort(V.begin(), V.end());

    // dodawaj do drzewa od najdluzszych
    while (!V.empty())
    {
        REP(i, V.back().first)
        {
            frq[V.back().second[i] - 'a']++;
            s[i] = V.back().second[i];
        }
        s[V.back().first] = 0;

        add(0, V.back().first);
        V.pop_back();
    }

    printf("%lld\n", res);

    return 0;
}

// FOR GNU C++ use the following pattern:
// Uncomment the code below and change your main into main2
// It does not build in MS C++
// But it does increase the stack size from 256 MB on CF and uses GNU C++

//#include <Processthreadsapi.h>
//#include <iostream>
//#include <Synchapi.h>
//#include <windows.h>
//#include <process.h>
//
//DWORD WINAPI MyThreadFunction(LPVOID lpParam) {
//    main2(nullptr);
//    return 0;
//}
//int main() {
//    auto h = CreateThread(nullptr, 1024 << 20, MyThreadFunction, nullptr, STACK_SIZE_PARAM_IS_A_RESERVATION, nullptr);
//    WaitForSingleObject(h, INFINITE);
//}

Measured memory_bytes: 238224