#include<bits/stdc++.h>
#pragma GCC optimize(2)
#pragma GCC optimize(3)
#pragma GCC optimize("Ofast")
#define int long long
using namespace std;
int n,k,a[503][20003],l,c[503][13],ans;
const int p[13]={998244353,1047470423,949556899},t=3;
int e[13],f[13],q[13];
char cc[20003];
int pl(int x,int p){
	return x<p?x:x-p;
}
int pll(int x,int p){
	return pl(pl(x,p),p);
}
signed main(){
	scanf("%lld %lld",&n,&k);
	for(int i=1;i<=n;++i){
		scanf("%s",cc);
		l=strlen(cc);
		for(int j=0;j<l;++j){
			a[i][(l-1-j)%k]+=cc[j]-'0';
		}
		for(int j=0;j<k;++j){
			l=a[i][j]/10;
			a[i][j]%=10;
			a[i][(j+1)%k]+=l;
		}
		for(int j=0;1;++j){
			if(a[i][j%k]<10)break;
			l=a[i][j%k]/10;
			a[i][j%k]%=10;
			a[i][(j+1)%k]+=l;
		}
		bool b=1;
		for(int j=0;j<k;++j){
			if(a[i][j]!=9){
				b=0;
				break;
			}
		}
		if(b){
			for(int j=0;j<k;++j){
				a[i][j]=0;
			}
		}
	}
	for(int i=0;i<t;++i){
		e[i]=1;
		for(int j=0;j<k;++j){
			e[i]=e[i]*10%p[i];
		}
		--e[i];
		for(int j=1;j<=n;++j){
			c[j][i]=0;
			for(int l=k-1;l>=0;--l){
				c[j][i]=(c[j][i]*10+a[j][l])%p[i];
			}
		}
	}
	for(int o=0;o<t;++o){
		f[o]=e[o]*2%p[o];
	}
	for(int i=1;i<=n;++i){
		for(int j=1;j<=i;++j){
			for(int l=1;l<=j;++l){
				for(int o=0;o<t;++o){
					q[o]=pll(c[i][o]+c[j][o]+c[l][o],p[o]);
				}
				bool b=1;
				for(int o=0;o<t;++o){
					if(q[o]!=0){
						b=0;
						break;
					}
				}
				ans+=b;
				b=1;
				for(int o=0;o<t;++o){
					if(q[o]!=e[o]){
						b=0;
						break;
					}
				}
				ans+=b;
				b=1;
				for(int o=0;o<t;++o){
					if(q[o]!=f[o]){
						b=0;
						break;
					}
				}
				ans+=b;
			}
		}
	}
	cout<<ans;
}