var
	n,i:word;
  p,b:longint;
  fi,fo:text;
begin
	assign(fi,'fructe.in');reset(fi);
  assign(fo,'fructe.out');rewrite(fo);
	readln(fi,n);
  for i:= 1 to n do
  	begin
    	readln(p,b);
      p:=(p div 2) +(b div 2)+(p mod 2);
      b:=b mod 2;
      repeat
      	p:=(p div 2)+(p mod 2);
      until p div 2 =  0;
      if b<>0 then
      	writeln(fo,1)
      else
      	writeln(fo,0);
    end;
  close(fo);
end.