import std;

// dfmt off
T lread(T = long)(){return readln.chomp.to!T();}
T[] lreads(T = long)(long n){return generate(()=>readln.chomp.to!T()).take(n).array();}
T[] aryread(T = long)(){return readln.split.to!(T[])();}
void scan(TList...)(ref TList Args){auto line = readln.split();
foreach (i, T; TList){T val = line[i].to!(T);Args[i] = val;}}
alias sread = () => readln.chomp();enum MOD = 10 ^^ 9 + 7;
alias PQueue(T, alias less = "a<b") = BinaryHeap!(Array!T, less);
// dfmt on

void main()
{
    auto S = sread();
    long N = S.length;
    auto dp = new long[][](2, 2019);
    // dp[0][0] = 1;
    long ans;
    foreach (i; 0 .. N)
    {
        dp[(i + 1) & 1][] = 0;
        dp[(i + 1) & 1][(S[i] - '0')]++;
        foreach (j; 0 .. 2019)
        {
            long x = (j * 10) + (S[i] - '0');
            dp[(i + 1) & 1][x % 2019] += dp[i & 1][j];
        }
        // if (dp[i + 1][0] != 0)
        // {
        //     writeln(" ", i);
        // }
        ans += dp[(i + 1) & 1][0];
    }
    writeln(ans);
}
