#include <stdio.h>

char s[200200];
long long p[2019],q[2019],a;

int main()
{
  scanf ("%s",s);
  for (int i=0;s[i];i++){
    for (int j=0;j<2019;j++) p[j] = q[j], q[j] = 0; p[0]++;
    for (int j=0;j<2019;j++) q[(j*10+s[i]-'0')%2019] += p[j];
    a += q[0];
  }
  printf ("%lld\n",a);
  return 0;
}
