#pragma GCC optimize("Ofast")
#include<bits/stdc++.h>
#define rep(i,a,b) for(int i=(a);i<=(b);++i)
#define per(i,a,b) for(int i=(a);i>=(b);--i)
#define SZ(x) ((int)(x).size())
using namespace std;

const int md[3] = {998244353, 998244353, 998244353};

const int N = 505;

int a[N][3],n,K;
char _s[100005];
int s[100005],t[100005];

signed main()
{
#ifdef xay5421
	freopen("a.in","r",stdin);
#endif
	cin>>n>>K;
	int ok[4][3]={0,0,0,0};
	for(int c=0;c<3;c++)
	{
		for(int i=0;i<K;i++) ok[1][c]=(1LL*ok[1][c]*10+9)%md[c];
		ok[2][c]=1LL*2*ok[1][c]%md[c];
		ok[3][c]=1LL*3*ok[1][c]%md[c];
	}
	for(int i=1;i<=n;i++)
	{
		scanf("%s",_s+1);
		int l=strlen(_s+1);
		for(int j=0;j<K;j++) s[j]=0;
		for(int j=0;j<l;j++) s[j]=_s[l-j]-'0';
		while(l>K)
		{
			for(int j=0;j<K;j++) t[j]=0;
			t[K]=0;
			for(int j=0;j<l;j++) t[j%K]+=s[j];
			for(int j=0;j<K;j++) t[j+1]+=t[j]/10,t[j]%=10;
			l=t[K]?K+1:K;
			for(int j=0;j<l;j++) s[j]=t[j];
		}
		for(int j=K-1;j>=0;j--)
		{
			for(int c=0;c<3;c++) a[i][c]=(1ULL*a[i][c]*10+s[j])%md[c];
		}
	}
//	for(int i=1;i<=n;i++) printf("%d %d\n",a[i][0],a[i][1]);
//	for(int i=0;i<4;i++) printf("%d %d\n",ok[i][0],ok[i][1]);
	int ans=0;
	for(int i=1;i<=n;i++)
	{
		for(int j=i;j<=n;j++)
		{
			for(int k=j;k<=n;k++)
			{
				for(int t=0;t<4;t++)
				{
					int o=1;
					for(int c=0;c<3;c++)
					{
						if(((long long)a[i][c]+a[j][c]+a[k][c])%md[c]!=ok[t][c]) o=0;
					}
					ans+=o;
				}
			}
		}
	}
	cout<<ans<<endl;
	return 0;
}