module a;
	integer i,j,x,c;
	initial begin
		for (i=0;i<10;i=i+1) begin
			c = $fscanf(32'h8000_0000,"%b",x);
			for(j=0;j<x;j++) begin
				if (j*(j+1)/2==i) begin
					c = 0;
				end
			end
			$write("%d\n",1-c);
		end
	end
endmodule