#include <algorithm>
#include <iostream>
#include <unordered_map>
#include <vector>
using namespace std;
using u64 = unsigned long long;
u64 base = 1331;
vector<u64> powb;

using ll = long long;
using i128 = __int128_t;
const ll mod = 1853864636996946989;

ll qpow(ll x, ll y) {
    i128 ans = 1;
    for (; y; y >>= 1, x = (i128)x * x % mod) {
        if (y & 1) ans = ans * x % mod;
    }
    return ans;
}

int n, k;

bool check(const vector<int>& a) {
    for (int i = 0; i < k; ++i)
        if (a[i] != 9) return 0;
    return 1;
}
int main() {
    cin.tie(0), cout.tie(0), ios::sync_with_stdio(0);
    cin >> n >> k;
    ll M = qpow(10, k) - 1;
    vector<ll> a(n);

    for (int i = 0; i < n; ++i) {
        string s;
        cin >> s;
        reverse(s.begin(), s.end());
        while (s.size() % k != 0) s.push_back('0');
        vector<int> ans(k);
        for (int i = 0; i < s.size(); i += k) {
            int carry = 0;
            for (int j = i; j < i + k; ++j) {
                ans[j - i] = ans[j - i] + s[j] - '0' + carry;
                if (ans[j - i] >= 10) {
                    carry = 1;
                    ans[j - i] -= 10;
                } else {
                    carry = 0;
                }
            }

            if (carry == 1) {
                for (int j = 0; j < k && carry; ++j) {
                    ans[j] = ans[j] + carry;
                    if (ans[j] >= 10) {
                        carry = 1;
                        ans[j] -= 10;
                    } else {
                        carry = 0;
                    }
                }
            }

            if (check(ans))
                for (int i = 0; i < k; ++i) ans[i] = 0;
        }
        i128 tmp = 0;
        i128 f = 1;

        for (int i = 0; i < k; ++i, f = f * 10 % mod) {
            tmp = (tmp + f * ans[i]) % mod;
        }
        a[i] = tmp;
    }

    auto query = [&](ll x) -> int {
        unordered_map<ll, int> mp;
        int ans = 0;
        for (int i = 0; i < n; ++i) {
            for (int j = 0; j <= i; ++j) {
                ll a2 = (a[i] + a[j]) % mod;
                if (mp.find(a2) == mp.end()) {
                    mp[a2] = 1;
                } else {
                    mp[a2]++;
                }
            }
            ll t = (x - a[i] + mod) % mod;
            if (mp.find(t) != mp.end())
                ans += mp[t];
        }
        return ans;
    };
    cout << query(0) + query(M) + query((i128)2 * M % mod) + query((i128)3 * M % mod) << '\n';
}
/*
4 1
9
1
10
17
*/