#include<bits/stdc++.h>
using namespace std;
int n,m;
char c[101000];
int zk[510],a[20100];
const int mod=1e9+7,W=131;
map<int,int>tp; 
int main(){
	scanf("%d%d",&n,&m);
	for(int i=1,L;i<=n;i++){
		scanf("%s",c);L=strlen(c);reverse(c,c+L);
		for(int j=0;j<m;j++)a[j]=0;
		for(int j=0;j<L;j++)a[j%m]+=c[j]-'0';
		if(m==1)a[0]%=9;
		else{
			for(int j=0;j<m;j++)a[(j==m-1)?0:(j+1)]+=a[j]/10,a[j]%=10;
			int t=0;
			while(a[t]>=10)a[(t==m-1)?0:(t+1)]+=a[t]/10,a[t]%=10,t=(t==m-1)?0:(t+1);
			bool fl=1;
			for(int j=0;j<m;j++)fl&=(a[j]==9);
			if(fl)memset(a,0,sizeof(a));
		}
		int z=0;
		for(int j=m-1;j>=0;j--)z=(10ll*z%mod+a[j])%mod;
		zk[i]=z;
	}
	int e=1;
	for(int i=1;i<=m;i++)e=10ll*e%mod;e=(e+mod-1)%mod;
	int ans=0;
	for(int j=n;j;j--){
		int o=(mod-zk[j])%mod;
		tp[o]++;
		(o+=e)%=mod;
		tp[o]++;
		(o+=e)%=mod;
		tp[o]++;
		for(int i=j;i;i--){
			int vp=(zk[i]+zk[j])%mod;
			ans+=tp[vp];
		}
	}
	return printf("%d",ans),0;
}