
#include<iostream>
#include<cassert>
#include<cctype>
#include<cerrno>
#include<cfloat>
#include<vector>
#include<algorithm>
#include<string>
#include<map>
#include<math.h>
#include<queue>
#include<deque>
#include<stack>
#include<cstdio>
#include<utility>
#include<set>
#include<list>
#include<cmath>
#include<stdio.h>
#include<string.h>
#include<iomanip>
#include<cstdio>
#include<cstdlib>
#include<cstring>
#include<bitset>
#include<functional>
#include<iterator>
#include<complex>
#include<fstream>
#include<random>
#include<ctype.h>
#include<stdio.h>
using namespace std;
#define FOR(i, a, b) for (int i = (a); i <= (b); i++)
#define REP(i, n) FOR(i, 0, n - 1)
#define NREP(i, n) FOR(i, 1, n)
using ll = long long;
using pii = pair<int, int>;
using PII = pair<ll, ll>;
using piii = pair<pii, pii>;
using Pi = pair<int, pii>;
using Graph = vector<vector<int>>;
const int dx[4] = { 0, -1, 1, 0 };
const int dy[4] = { -1, 0, 0, 1 };
bool check(int x, int y) {
	if (0 <= x && x<55 && 0 <= y && y<55)return true;
	else return false;
}
const ll INF = 1e+7;
int gcd(int x, int y) {
	if (x < y)swap(x, y);
	if (y == 0)return x;
	return gcd(y, x%y);
}
void mul(ll a, ll b) {
	a = a * b % INF;
}
using Graph = vector<vector<int>>;

long long modinv(long long a, long long m) {
	long long b = m, u = 1, v = 0;
	while (b) {
		long long t = a / b;
		a -= t * b; swap(a, b);
		u -= t * v; swap(u, v);
	}
	u %= m;
	if (u < 0) u += m;
	return u;
}
const double PI = 3.14159265358979323846;
const int MAX = 510000;
ll fac[MAX], finv[MAX], inv[MAX];
//テーブルをつくる前処理
void COMinit() {
	fac[0] = fac[1] = 1;
	finv[0] = finv[1] = 1;
	inv[1] = 1;//mod pにおける1,2,,,nの逆元
	for (int i = 2; i < MAX; ++i) {
		fac[i] = fac[i - 1] * i%INF;
		inv[i] = INF - inv[INF%i] * (INF / i) % INF;
		finv[i] = finv[i - 1] * inv[i] % INF;
	}
}

ll COM(int n, int k) {
	if (n < k)return 0;
	if (n < 0 || k < 0)return 0;
	return fac[n] * (finv[k] * finv[n - k] % INF) % INF;
}
double Euclidean_distance(double x1, double y1, double x2, double y2) {
	return sqrt((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2));
}

int prime[1001000];//i番目の素数
bool is_prime[1001010];//is_prime[i]がtrueならiは素数
					   //n以下の素数の数を返す
int sieve(int n) {
	int p = 0;
	for (int i = 0; i <= n; ++i) {
		is_prime[i] = true;
	}
	is_prime[0] = false;
	is_prime[1] = false;
	for (int i = 2; i <= n; ++i) {
		if (is_prime[i]) {
			prime[p] = i;
			p++;
			for (int j = 2 * i; j <= n; j += i) {
				is_prime[j] = false;
			}
		}
	}
	return p;
}

//素因数分解
map<int, int>prime_factor(int n) {
	map<int, int>res;
	for (int i = 2; i*i <= n; ++i) {
		while (n%i == 0) {
			++res[i];
			n /= i;
		}
	}
	if (n != 1)res[n] = 1;
	return res;
}

const ll MOD = 2019;
ll powmod(ll a, ll k) {
	ll ap = a, ans = 1;
	while (k) {
		if (k & 1) {
			ans *= ap;
			ans %= MOD;
		}
		ap = ap * ap;
		ap %= MOD;
		k >>= 1;
	}
	return ans;
}
ll invi(ll a) {
	return powmod(a, MOD - 2);
}
//逆元Aを足したときのmodで割った余りは
//+=invi(A)
///////////////////////////////////////

//Sについて下からi桁目の数字をSiと表記するまたSの文字列の長さをNとする
//加えてxを2019で割った余りをx%2019と表記する
//sについて桁ごとに分解して表現してみると
//S1*1+S2*10+S3*100+,,,,,,+SN*10~(N-1)となる
//S%2019は(S1*1%2019+S2*10%2019+,,,+SN*10^(N-1)%2019)%2019
//一般化するとΣ(Si*10^(i-1)%2019)%2019(1<=i<=N)
//ここでsum[k]=ΣSi*10^(i-1)%2019)%2019(1<=i<=K)と定義すると
//sum[0]=0,sum[k]=(sum[k-1]+(Sk*10^(k-1)%2019)%2019と
//10^k%2019=(10^(k-1)%2019)%2019の二つを組み合わせ累積和のようにして解くことができる
//ここでSのi桁目からj桁目までを取り出した数はこれをPとして
//P=(ΣSk*10^(k-1)(1<=k<=j)-ΣSk*10^(k-1)(1<=k<=i-1))/10^(i-1)
//2019は互いに素なので上記の分子が2019の倍数になっていればよく
//これをさらに変形するとΣ(Sk*10^(k-1)%2019)%2019(1<=k<=j)
//Σ(Sk*10^(k-1)%2019)%2019(1<=k<=i-1)となるi,jのペアを探せばよいことがわかる
//この式は先ほど作成したsum[k]そのものでsum[i-1]=sum[j]
//となるi,jのペアを探せばよい
//cnt[k]:sum[x]=kとなるようなxの個数という配列を用意しておき
//1,sum[i]を計算
//2,cnt[sum[i]]を答えに加算
//3,cnt[sum[i]]]++という操作をi=0から繰り返していけばよい
ll sum[200020];
ll cnt[2020];
int main(){
	string S; cin >> S;
	reverse(S.begin(), S.end());
	ll n = S.size();
	ll ans = 0;
	REP(i, 200020)sum[i] = 0;
	REP(i, 2020)cnt[i] = 0;
	cnt[0] = 1;
	for (ll i = 1; i <= n; ++i) {
		sum[i] = (sum[i - 1] + (S[i - 1] - '0')*powmod(10, i - 1)) % 2019;
		ans += cnt[sum[i]];
		cnt[sum[i]]++;
	}
	cout << ans << endl;
	return 0;
}
