File standardInput readLines map($,s:=n:=0
$foreach(i,b,m:=if(11>z:=11- $size%14/3,i%2*2+1,14-i)
i<4or if(b==63,x:=i
q:=m,s=s+b%78%48*m))while((s+n*q)%z>0,n=n+1)$atPut(x,n+48)println)