File standardInput readLines map($,c:=0;$foreach(b,c=c+"1000001021"at(b-48)-48)println)