#include <bits/stdc++.h>
#pragma GCC optimize("Ofast,no-stack-protector,unroll-loops", "omit-frame-pointer", "inline")
#pragma GCC target("sse,sse2,sse3,ssse3,sse4,sse4.1,sse4.2,popcnt,abm,mmx,avx,avx2,fma,tune=native")
#pragma GCC option("arch=native", "no-zero-upper") // Enable AVX
using namespace std;

#define int     long long
#define pb      push_back
#define sz(x)   (int)(x.size())
#define fs      first
#define sc      second
#define all(x)  (x).begin(), (x).end()
#define rall(x) (x).rbegin(), (x).rend()
#define mid     (L + R) / 2

typedef long long ll;
typedef pair<int, int> pii;
typedef vector<int> vi;
typedef vector<vi> vvi;
typedef vector<pii> vpii;
typedef __int128_t int128;

mt19937_64 rnd(chrono::steady_clock::now().time_since_epoch().count());

int n, k;
const pii Mods = {1'000'000'009, 2'000'000'099};

struct Hash {
	pii H;
	Hash() { H=pii(0,0); }
	Hash(int a) { H=pii(a,a); }
	Hash(pii F) : H(F) {}

	Hash operator-(Hash A) {
		pii Nas;
			Nas.fs= (H.fs + 2 * Mods.fs - A.H.fs) % Mods.fs;
			Nas.sc= (H.sc + 2 * Mods.sc - A.H.sc) % Mods.sc;
        return Hash{Nas};
	}
	Hash operator+(Hash A) {
		pii Nas;
		Nas.fs= (H.fs +A.H.fs) % Mods.fs;
		Nas.sc= (H.sc +A.H.sc) % Mods.sc;
        return Hash{Nas};
	}
	Hash operator+(int a) {
		pii Nas;
		Nas.fs= (H.fs +a) % Mods.fs;
		Nas.sc= (H.sc +a) % Mods.sc;
        return Hash{Nas};
	}
	Hash operator*(int mul) {
		pii Nas;
		Nas.fs= (H.fs*mul) % Mods.fs;
		Nas.sc= (H.sc*mul) % Mods.sc;
        return Hash{Nas};
	}
	bool operator==(Hash A) {
		return H==A.H;
	}
};

void problem() {
	scanf("%lld %lld", &n, &k);
	vector<Hash> A;
	char ss[(int)(2e4+5)]; 
	for (int i = 0; i < n; i++) {
        scanf("%s",ss); 
		string s=string(ss);
		//string s;s.assign(2e4,'0');
        reverse(all(s));
		vi F(k);
		for (int j = 0; j < sz(s); j++) {
			F[j % k] += s[j] - '0';
		}
		int cant = (sz(s)+2) / k;
		while (cant--) {
			for (int j = 0; j < k; j++) {
				int extra = F[j] / 10;
				F[j] %= 10;
				F[(j + 1) % k] += extra;
			}
		}
		Hash Num;
		for (int j = 0; j < k; j++) {
			Num = Num * 10;
			Num = Num + F[j];
		}
		A.pb(Num);
	}

	vector<Hash> Ans;
	Ans.pb(Hash());
	Hash Num;
	for (int i = 0; i < k; i++) {
		Num = Num * 10;
		Num = Num + 9;
	}
	Ans.pb(Num);
	Num = Num * 2;
	Ans.pb(Num);
	map<pii, int> M;
	int ans = 0;
	for (int i = 0; i < n; i++) {
		M[A[i].H]++;
		vector<Hash> Sum = Ans;
		for (int h = 0; h < 3; h++) {
			Sum[h] = Sum[h] - A[i];
		}
		for (int j = i; j < n; j++) {
			for (int h = 0; h < 3; h++) {
				ans += M[(Sum[h] - A[j]).H];
			}
		}
	}
	printf("%lld\n", ans);
}

signed main() {
	ios_base::sync_with_stdio(0);
	cin.tie(0);
	int tc = 1;
	// cin>>tc;
	while (tc--) {
		problem();
		// cout << "\n";
	}
}