#include<bits/stdc++.h>
#define pb push_back
using namespace std;
typedef array<int,3> ar;
int n,k,cnt0;
mt19937_64 gen(time(0));
ar mod,A[505];
map<ar,int> cnt;
vector<ar> ss;
vector<int> a[505];
bool isprime(int x){
    for (int j=2;j*j<=x;j++) if (x%j==0) return 0;
    return 1;
}
ar add(ar u,ar v){
    ar ret;
    for (int i=0;i<3;i++) ret[i]=(u[i]+v[i])%mod[i];
    return ret;
}
ar sub(ar u,ar v){
    ar ret;
    for (int i=0;i<3;i++) ret[i]=(u[i]-v[i]+mod[i])%mod[i];
    return ret;
}
vector<int> read(){
    string s; cin >> s;
    int m=s.size();
    vector<int> ret;
    for (int i=m-1;i>=0;i--) ret.pb(s[i]-'0');
    return ret;
}
vector<int> F(vector<int> &a){
    vector<int> ret(k+10,0);
    for (int i=0;i<a.size();i++) ret[i%k]+=a[i];
    for (int i=0;i<ret.size()-1;i++){
        ret[i+1]+=ret[i]/10;
        ret[i]%=10;
    }
    while (ret.size()&&!ret.back()) ret.pop_back();
    return ret;
}
int main(){
    for (int i=0;i<3;i++){
        mod[i]=500000000+gen()%500000000;
        while (!isprime(mod[i])) mod[i]++;
    }
    cin >> n >> k;
    ar s[3];
    for (int i=0;i<3;i++){
        for (int p=0;p<3;p++) s[i][p]=0;
    }
    for (int i=0;i<3;i++)
        for (int j=0;j<k;j++)
            for (int p=0;p<3;p++)
                s[i][p]=(1ll*s[i][p]*10+i*9)%mod[p];
    for (int i=0;i<n;i++){
        a[i]=read();
        while (a[i].size()>k) a[i]=F(a[i]);
        ar h; for (int j=0;j<3;j++) h[j]=0;
        for (int j=(int)a[i].size()-1;j>=0;j--){
            for (int p=0;p<3;p++) h[p]=(1ll*h[p]*10+a[i][j])%mod[p];
        }
        A[i]=h;
    }
    int ans=0;
    for (int i=0;i<n;i++){
        for (int j=0;j<3;j++) cnt[sub(s[j],A[i])]++;
        for (int j=i;j<n;j++) ans+=cnt[add(A[i],A[j])];
    }
    cout << ans << endl;
}