program order;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var  a:array[1..1048576]of byte;
     b:array[-5..100]of byte;
     c:array[0..15]of integer; d:array[0..15]of string;
     i,n,por,j,k,m:integer; s:string; f:text;
begin
assign(f,'order.dat');
reset(f);
readln(f,m);
for j:=1 to m do begin
{зчитування рядка}
read(f,n);
for i:=1 to n do begin
  read(f,a[i]);
                 end;
     {опрацювання одного рядка}
             por:=0;
for i:=1 to n do
  for k:=i to n do
    if  (a[i]>a[k])and(i<k)then por:=por+1;
b[j]:=por mod 2;

readln(f);
for i:=1 to n do a[i]:=0;
end;
close(f);
  c[0]:=0; d[0]:='0';
  c[1]:=1; d[1]:='1';
  c[2]:=10; d[2]:='2';
  c[3]:=11; d[3]:='3';
  c[4]:=100; d[4]:='4';
  c[5]:=101; d[5]:='5';
  c[6]:=110; d[6]:='6';
  c[7]:=111; d[7]:='7';
  c[8]:=1000; d[8]:='8';
  c[9]:=1001; d[9]:='9';
  c[10]:=1010; d[10]:='a';
  c[11]:=1011; d[11]:='b';
  c[12]:=1100; d[12]:='c';
  c[13]:=1101; d[13]:='d';
  c[14]:=1110; d[14]:='e';
  c[15]:=1111; d[15]:='f';
  i:=m;
  while i>0 do
  begin
  for j:=0 to 15 do
  if c[j]=b[i]+b[i-1]*10+b[i-2]*100+b[i-3]*1000 then s:=s+d[j];
  i:=i-4;
  end;
  if s[length(s)]='0'then delete(s,length(s),1);
assign(f,'order.sol');
rewrite(f);
for i:=length(s) downto 1 do write(f,s[i]);
close(f);
end.