p:=s:=0 File standardInput readLines map($,$split map(asNumber)do(for(i,0,9,write(s=s+if(9<t:=slice(j:=i+p,j+2)sum,at(j+2),0)+t,if(i>8," "," ")) at(j)>9or p=p+1)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).