program p1;
var f,g:text;
    p,b,t,i:longint;
begin
     assign(f,'fructe.in');reset(f);
     assign(g,'fructe.out');rewrite(g);
     read(f,t);
     for i:=1 to t do
         begin
              readln(f,p,b);
              if b mod 2=1 then writeln(g,'1')
                           else writeln(g,'0');
         end;
     close(f);
     close(g);
end.