`define S 32'h80000000
module q;
integer c,x;
initial begin
	for(l=0;l<50;l=l+1)begin
		for(i=0;i<8;i=i+1)begin
			c=$fgetc(`S)&1;
			x=x+c;
			x=x<<1;
		end
		c=$fgetc(`S)
		for(i=0;;i=i+1)begin:A
			if(x>0)disable A;
			x=x-i;
		end
		$write("%d",x==0?1:0)
	end
endmodule