program bla;
var a:array[1..1000, 1..1000] of longint; n,i,j,b,e,f,g:integer;
k:array[1..1000] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(k[i]); g:=g+k[i];
if k[i]<>1 then begin for j:=1 to k[i]-1 do readln(a[i,j]); readln(a[i,k[i]]); end
else readln(a[i,k[i]]);
end;
repeat
f:=f+1;
i:=0; b:=a[1,1];
repeat
i:=i+1;
if (b>a[i,1]) and (a[i,1]>0) then begin b:=a[i,1]; e:=i; end;
until i=n;
write(n,' ');
for j:=1 to k[i] do
a[e,j]:=a[e,j+1];
a[e,k[i]]:=0;
k[i]:=k[i]-1;
until f=g;
readln;
end.