`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;x>0;i=i+1)begin x=x-i; end $write("%d",x==0?1:0) end endmodule