`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)[0];
			x=x+c;
			x<<1;
		$fgetc(`S)
		for(i=0;x>0;i=i+1)x=x-i;
		$write("%d",x==0?1:0)