#include <bits/stdc++.h>
using namespace std;
struct IO {
  char buf[(1 << 20)], *p1, *p2;
  char pbuf[(1 << 20)], *pp;
  IO() : p1(buf), p2(buf), pp(pbuf) {}
  inline char gc() {
    return getchar();
    if (p1 == p2) p2 = (p1 = buf) + fread(buf, 1, (1 << 20), stdin);
    return p1 == p2 ? ' ' : *p1++;
  }
  inline bool blank(char ch) {
    return ch == ' ' || ch == '\n' || ch == '\r' || ch == '\t';
  }
  template <class T>
  inline void read(T &x) {
    register double tmp = 1;
    register bool sign = 0;
    x = 0;
    register char ch = gc();
    for (; !(ch >= '0' && ch <= '9'); ch = gc())
      if (ch == '-') sign = 1;
    for (; (ch >= '0' && ch <= '9'); ch = gc()) x = x * 10 + (ch - '0');
    if (ch == '.')
      for (ch = gc(); (ch >= '0' && ch <= '9'); ch = gc())
        tmp /= 10.0, x += tmp * (ch - '0');
    if (sign) x = -x;
  }
  inline void read(char *s) {
    register char ch = gc();
    for (; blank(ch); ch = gc())
      ;
    for (; !blank(ch); ch = gc()) *s++ = ch;
    *s = 0;
  }
  inline void read(char &c) {
    for (c = gc(); blank(c); c = gc())
      ;
  }
  template <class t>
  inline void write(t x) {
    if (x < 0)
      putchar('-'), write(-x);
    else {
      if (x > 9) write(x / 10);
      putchar('0' + x % 10);
    }
  }
} io;
const long long mod = 1e9 + 7;
const long long mo = 998244353;
const long long N = 2e5 + 5;
long long n, m, a[N], fac[15], ans;
map<long long, long long> cwy[15];
signed main() {
  io.read(n), io.read(m);
  for (long long i = (1); i <= (n); i++) io.read(a[i]);
  fac[0] = 1;
  for (long long i = (1); i <= (10); i++) fac[i] = fac[i - 1] * 10ll;
  for (long long i = (1); i <= (n); i++)
    for (long long j = (1); j <= (10); j++)
      cwy[j][(fac[j] % m * a[i] + m) % m]++;
  for (long long i = (1); i <= (n); i++) {
    long long S = (long long)log10(a[i]) + 1;
    long long T = (fac[S] * (a[i] % m) + a[i] % m) % m;
    ans += cwy[S][(m - a[i] % m) % m] - (!T);
  }
  io.write(ans), puts("");
  return 0;
}
