Problem:
Score : 400 points

Problem Statement

Given is a string S consisting of digits from 1 through 9.

Find the number of pairs of integers (i,j) (1 ≤ i ≤ j ≤ |S|) that satisfy the following condition:

Condition: In base ten, the i-th through j-th characters of S form an integer that is a multiple of 2019.

Constraints

1 ≤ |S| ≤ 200000

S is a string consisting of digits from 1 through 9.

Input

Input is given from Standard Input in the following format:

S

Output

Print the number of pairs of integers (i,j) (1 ≤ i ≤ j ≤ |S|) that satisfy the condition.

Sample Input 1

1817181712114

Sample Output 1

3

Three pairs - (1,5), (5,9), and (9,13) - satisfy the condition.

Sample Input 2

14282668646

Sample Output 2

2

Sample Input 3

2119

Sample Output 3

0

No pairs satisfy the condition.

Solution in Fortran (GNU Fortran 9.2.1) (judge verdict: Time Limit Exceeded)

program multi
  implicit none

  integer :: i, j, k
  integer :: count, judge, calculate
  real(kind=8) :: number_int
  character(len=200000) :: number

  read (*,*) number

  count = len(trim(number))

  k = 0
  do i = 1, count
    do j = i+1, count
      read(number(i:j), *) number_int
      calculate = int(number_int)
      judge = mod(calculate,2019)
      if(judge == 0) then
        k = k + 1
      else

      end if
    end do
  end do

print *, k
end program multi