import Data.Char
import Data.List
main=interact$show.sum.map(g.length).group.(0:).sort.f 0 1.map digitToInt.reverse
f _ _[]=[]
f a p(s:ss)=b:f b(p*10`mod`2019)ss where b=(s*p+a)`mod`2019 
g n=n*(n-1)`div`2