var q,t:array[1..100] of longint;
n,a,b,i,j:longint;
procedure hnt(a,b:longint);
var k,i,j,o:longint;
begin
b:=b+1;
for i:=1 to a do
begin
 for o:=1 to 6 do
 begin q[o]:=t[i] div 3; q[o]:=q[o]*o; end;
k:=b mod (t[i]*2);
if ((k<=(q[1])) and (k>=1)) or (k=0) or
 ((k>q[5]) and (k<q[6])) then write(1,' ');
if ((k>q[1]) and (k<=q[2])) or
 ((k>q[4]) and (k<=q[5])) then write(2,' ');
if ((k>q[2]) and (k<=q[4])) then write(3,' ');
end;
end;
begin
read(n);
t[1]:=3;
for i:=2 to 15 do t[i]:=t[i-1]*3;
for i:=1 to n do
begin
read(a,b);
if (b=0) then for j:=1 to a do write(1,' ') else hnt(a,b);
end;
end.