#include<stdio.h>
#include<string.h>

char s[200010];
int a[2020];
int main(){
	scanf("%s",s);
	int n=strlen(s);
	int cum=0;
	int p10=1;
	a[0]++;
	for(int i=n-1;i>=0;i--){
		cum=(cum+p10*(s[i]-'0'))%2019;
		a[cum]++;
		p10=p10*10%2019;
	}
	long long ans=0;
	for(int i=0;i<2019;i++)ans+=a[i]*(a[i]-1)/2;
	printf("%lld",ans);
}