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)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).