#pragma GCC optimize("O3,unroll-loops")
#pragma GCC target("avx2,bmi,bmi2,lzcnt,popcnt")

#include <bits/stdc++.h>
#include <ext/pb_ds/assoc_container.hpp>
#include <ext/pb_ds/tree_policy.hpp>
using namespace std;
using namespace __gnu_pbds;

typedef long long ll;
typedef long double ld;
typedef __int128 Int;
typedef vector<ll> vi;
typedef pair<ll, ll> ii;
typedef vector<ii> vii;
typedef pair<ll, ii> iii;
typedef unordered_map<ll, ll> unmap;

template<typename T> using pqmax = priority_queue<T>;
template<typename T> using pqmin = priority_queue<T, vector<T>, greater<T>>;
template<typename T> using oset = tree<T, null_type,less<T>, rb_tree_tag, tree_order_statistics_node_update>;

#define fi first
#define se second
#define sz size()
#define pb push_back
#define lb lower_bound
#define ub upper_bound
#define lg(n) (ll)__lg(n)
#define btpc __builtin_popcount

#define all(a) (a).begin(), (a).end()
#define rall(a) (a).rbegin(), (a).rend()
#define FOR(i,a,b) for(ll i = a; i <= b; i ++)
#define REP(i,a,b) for(ll i = a; i < b; i ++)
#define FORD(i,a,b) for(ll i = a; i >= b; i --)
#define FORS(i,a,b,c) for(ll i = a; i <= b; i += c)
#define FORDS(i,a,b,c) for(ll i = a; i >= b; i -= c)
#define FORA(x,a) for(auto x: a)
#define FORAA(l,r,a) for(auto [l, r]: a)

#define EL cerr << endl;
#define DEBUGN(a) cerr << a << endl;
#define DEBUGA(a, n) FOR (i, 1, n) cerr << a[i] << " "; cerr << endl;
#define DEBUG_AOP(a, n) FOR (i, 1, n) cerr << a[i].fi << " " << a[i].se << endl;  
#define DEBUG_A2D(a, n, m) FOR (i, 1, n) {FOR (j, 1, m) cerr << a[i][j] << " "; cerr << endl;}
#define DEBUG cerr << "shut the fuck up please :3" << endl;

#define YES cout << "YES\n"; return;
#define NO cout << "NO\n"; return;
 
template<class X, class Y> bool mimi(X &x, const Y &y) {if(x>y){x=y;return 1;}return 0;}
template<class X, class Y> bool mama(X &x, const Y &y) {if(x<y){x=y;return 1;}return 0;}
istream &operator >> (istream &st, Int &a) {string s;a=0;st>>s;bool g=1;REP(i,0,s.sz){if(i==0&&s[i]=='-'){g = 0;continue;}a=a*10+s[i]-'0';}if(!g)a=-a;return st;}
ostream &operator << (ostream &st, const Int &a) {Int t=a;if(t==0){st<<0;return st;}if(t<0){st<<'-';t=-t;}string b;while(t!=0){b.pb((t%10+'0'));t/=10;}reverse(all(b));st<<b;return st;}

const ll nom = 2;
const ll base[] = {577, 677, 877, 977};
const ll mod[] = {(ll)1e9 + 2277, (ll)1e9 + 5277, (ll)1e9 + 8277, (ll)1e9 + 9277};
const ii dir[] = {{0, 1}, {1, 0}, {0, -1}, {-1, 0}, {1, 1}, {1, -1}, {-1, 1}, {-1, -1}};

const ll INF = 1e18;
const ll N = 1e6 + 5;
const ll T = 4*N - 3;
const ll M = 1e9 + 7;

ll n;
ll a[N];
vi m[10][10][10][10];
bool m1[10], m2[10][10], m3[10][10][10];

void solve(ll testID) {
    cin >> n;
    FOR (i, 1, n) {
        cin >> a[i];
        m[a[i] % 10][a[i] / 10 % 10][a[i] / 100 % 10][a[i] / 1000].pb(i);
        m1[a[i] % 10] = true;
        m2[a[i] % 10][a[i] / 10 % 10] = true;
        m3[a[i] % 10][a[i] / 10 % 10][a[i] / 100 % 10] = true;
    }

    ll res = 0;
    FOR (i, 1, n) {
        FOR (j, i + 1, n) {
            vi a1, a2, a3, a4;
            if (a[i] % 10 == a[j] % 10) a1.pb(a[i] % 10);
            else {
                FOR (k, 1, 9)
                    if (k != a[i] % 10 && k != a[j] % 10)
                        a1.pb(k);
            } 
            
            if (a[i] / 10 % 10 == a[j] / 10 % 10) a2.pb(a[i] / 10 % 10);
            else {
                FOR (k, 1, 9)
                    if (k != a[i] / 10 % 10 && k != a[j] / 10 % 10)
                        a2.pb(k);
            } 

            if (a[i] / 100 % 10 == a[j] / 100 % 10) a3.pb(a[i] / 100 % 10);
            else {
                FOR (k, 1, 9)
                    if (k != a[i] / 100 % 10 && k != a[j] / 100 % 10)
                        a3.pb(k);
            } 

            if (a[i] / 1000 == a[j] / 1000) a4.pb(a[i] / 1000);
            else {
                FOR (k, 1, 9)
                    if (k != a[i] / 1000 && k != a[j] / 1000)
                        a4.pb(k);
            } 

            FORA (x, a1)
                if (m1[x]) 
                    FORA (y, a2)
                        if (m2[x][y])
                            FORA (z, a3)
                                if (m3[x][y][z]) 
                                    FORA (k, a4)
                                        FORA (v, m[x][y][z][k])
                                            if (v > j) {
                                                // cout << i << " " << j << " " << v << endl;
                                                res ++;
                                            }
        }
    }
    cout << res;
}

signed main() {
    ios_base::sync_with_stdio(0); cin.tie(0); 
    int test = 1;
    // cin >> test;
    FOR (i, 1, test) solve(i);
}