#include<iostream>
#include<unordered_map>
#include<cstring>
#include<algorithm>
using namespace std;
const long long B=1e18;
const long long base=1e18+3;
int n,k;
char s[20010];
unsigned long long a[510][1120],b[1120],h[510];
unordered_map<unsigned long long,int> f;
int main()
{
	ios::sync_with_stdio(false);
	cin.tie(0);
	cin>>n>>k;
	for(int i=1;i<=n;i++)
	{
		cin>>s+1;
		int len=strlen(s+1);
		reverse(s+1,s+len+1);
		for(int i=1;i<=len;i++)
		{
			s[i]-='0';
		}
		while(len>k)
		{
			int c=0;
			for(int i=1;i<=k;i++)
			{
				s[i]+=c;
				for(int j=i+k;j<=len;j+=k)
				{
					s[i]+=s[j];
				}
				c=s[i]/10,s[i]-=c*10;
			}
			len=k;
			while(c)
			{
				s[++len]=c%10;
				c/=10;
			}
		}
		if(len==k)
		{
			bool flag=1;
			for(int i=1;i<=len;i++)
			{
				if(s[i]<9)
				{
					flag=0;
					break;
				}
			}
			if(flag)
			{
				continue;
			}
		}
		for(int j=1,num=0;j<=len;j+=18)
		{
			unsigned long long &x=a[i][++num];
			for(int l=min(len,j+17);l>=j;x=x*10+s[l--]);
		}
	}
	int K=(k-1)/18+1;
	for(int i=1;i<=n;i++)
	{
		for(int j=1,c=0;j<=K;j++)
		{
			h[i]=h[i]*base+a[i][j];
		}
		unsigned long long p=9;
		for(int j=1;j<=18;j++,p*=10)
		{
			if(j>k-(K-1)*18)
			{
				h[i]+=p;
			}
		}
	}
	unsigned long long p=9,h0=0,H0=0;
	for(int j=1;j<=18;j++,p*=10)
	{
		if(j>k-(K-1)*18)
		{
			H0+=p;
		}
	}
	for(int j=p=1;j<=k-K*18;j++,p*=10);
	for(int j=1;j<=K;j++,h0=h0*base+B-1);
	int ans=0;
	for(int i=1;i<=n;i++)
	{
		for(int j=n;j>=i;j--)
		{
			f[h[j]]++;
			bool c=0;
			for(int k=1;k<=K;k++)
			{
				b[k]=a[i][k]+a[j][k]+c;
				c=(b[k]>=B),b[k]-=c*B;
			}
			if(c||b[K]>=p)
			{
				if(b[K]>=p)
				{
					b[K]-=p;
				}
				for(int k=1;k<=K;k++)
				{
					if(b[k]<B-1)
					{
						b[k]++;
						break;
					}
					b[k]=0;
				}
			}
			bool flag=0;
			unsigned long long h=0;
			for(int k=1;k<=K;k++)
			{
				flag|=b[k];
				h=h*base+B-1-b[k];
			}
			ans+=f[flag?h:H0];
		}
		for(int j=i;j<=n;j++)
		{
			f[h[j]]=0;
		}
	}
	cout<<ans<<endl;
	return 0;
}