#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
template<class T>bool chmax(T &a, const T &b) { if (a<b) { a=b; return true; } return false; }
template<class T>bool chmin(T &a, const T &b) { if (b<a) { a=b; return true; } return false; }
#define all(x) (x).begin(),(x).end()
#define fi first
#define se second
#define mp make_pair
#define si(x) int(x.size())
const int MAX=300005,INF=1<<30;
const ll mod=300000000000000011LL;

string add(string a,string b){
    if(si(a)<si(b)) swap(a,b);
    
    for(int i=0;i<si(b);i++){
        a[si(a)-1-i]+=int(b[si(b)-1-i]-'0');
        if(a[si(a)-1-i]>'9'&&si(a)-1-i){
            a[si(a)-1-i]-=10;
            a[si(a)-1-i-1]++;
        }
    }
    for(int i=si(a)-1;i>=1;i--){
        if(a[i]>'9'){
            a[i]-=10;
            a[i-1]++;
        }
    }
    string res;
    
    if(a[0]>'9'){
        a[0]-=10;
        res+='1';
    }
    res+=a;
    
    for(int i=si(res)-1;i>=0;i--){
        if(res[i]>'9'){
            res[i]-=10;
            res[i-1]++;
        }
    }
    
    reverse(all(res));
    while(si(res)>1&&res.back()=='0') res.pop_back();
    reverse(all(res));
    
    return res;
}

ll N,K;

string calc(string Z){
    if(si(Z)<=K) return Z;
    string res="0";
    while(si(Z)){
        string ad;
        if(si(Z)<=K){
            ad=Z;
            Z.clear();
        }else{
            ad=Z.substr(si(Z)-K,K);
            for(int t=0;t<K;t++) Z.pop_back();
        }
        res=add(res,ad);
    }
    return calc(res);
}

int main(){
    
    std::ifstream in("text.txt");
    std::cin.rdbuf(in.rdbuf());
    cin.tie(0);
    ios::sync_with_stdio(false);
    
    mt19937_64 rng(chrono::steady_clock::now().time_since_epoch().count());
    
    const int D=3;
    vector<ll> P(D),de(D);
    for(int i=0;i<D;i++){
        P[i]=rng()%(1LL<<58)+1;
    }
    
    cin>>N>>K;
    vector<vector<ll>> X(N,vector<ll>(D));
    
    {
        string S(K,'9');
        for(int j=0;j<D;j++){
            ll re=0;
            for(int k=0;k<si(S);k++){
                re*=10;
                re+=(S[k]-'0');
                re%=P[j];
            }
            de[j]=re;
        }
    }
    
    for(int i=0;i<N;i++){
        string SS;cin>>SS;
        reverse(all(SS));
        vector<ll> A(K);
        for(int j=0;j<si(SS);j++){
            A[j%K]+=(SS[j]-'0');
        }
        while(1){
            bool upd=false;
            for(int j=0;j<K;j++){
                ll z=A[j]/10;
                if(z) upd=true;
                A[j]-=z*10;
                int to=j+1;
                if(to==K) to=0;
                A[to]+=z;
            }
            if(!upd) break;
        }
        reverse(all(A));
        string S;
        for(ll x:A) S+=char('0'+x);
        for(int j=0;j<D;j++){
            ll re=0;
            for(int k=0;k<si(S);k++){
                re*=10;
                re+=(S[k]-'0');
                re%=P[j];
            }
            X[i][j]=re;
        }
    }
    sort(all(X));
    
    ll ans=0;
    
    for(int j=0;j<N;j++){
        for(int k=j;k<N;k++){
            for(ll z=0;z<3;z++){
                vector<ll> Y(D);
                for(int x=0;x<D;x++){
                    Y[x]=de[x]*z+P[x]+P[x]-X[j][x]-X[k][x];
                    Y[x]%=P[x];
                }
                int r=upper_bound(X.begin(),X.begin()+j+1,Y)-X.begin();
                int l=lower_bound(X.begin(),X.begin()+j+1,Y)-X.begin();
                ans+=r-l;
            }
        }
    }
    
    cout<<ans<<endl;
}