program abc;
var
i,num,temp,h,k:integer;
sz:array[1..150,1..150] of boolean;
b:array[1..150] of integer;
b1,b2,bj:boolean;

begin
fillchar(sz,sizeof(sz),0);
readln(num);
for i:=1 to num do
    begin
    read(temp);
    while temp<>0 do
          begin
          sz[i,temp]:=true;
          read(temp);
          end;
    readln;
    end;
for k:=1 to num do
begin
b1:=true;h:=1;b[h]:=k;
while b1 do
      begin
      b2:=true;h:=h+1;b[h]:=0;
      while b2 do
            begin
            b[h]:=b[h]+1;
            if b[h]<=num then
               begin
               if sz[b[h-1],b[h]] then
                  begin
                  bj:=true;
                  for i:=1 to h-1 do
                      if b[i]=b[h] then begin bj:=false;i:=h-1;end;
                  if bj then
                     begin
                     if h=num then
                        begin
                        for i:=1 to num do write(b[i]);
                        b2:=false;
                        b1:=b2;
                        k:=num;
                        end
                     else b2:=false;
                     end;
                  end;
               end
            else
                begin
                h:=h-1;
                if h=1 then
                   begin
                   b2:=false;
                   b1:=b2;
                   end;
                end;
            end;
      end;
end;
end.

var
i,num,temp,h,k:integer;
sz:array[1..150,1..150] of boolean;
b:array[1..150] of integer;
b1,b2,bj:boolean;

begin
fillchar(sz,sizeof(sz),0);
readln(num);
for i:=1 to num do
    begin
    read(temp);
    while temp<>0 do
          begin
          sz[i,temp]:=true;
          read(temp);
          end;
    readln;
    end;
k:=1;
while k<=num do
begin
  b1:=true;h:=1;b[h]:=k;
  while b1 do
    begin
      b2:=true;
      h:=h+1;
      b[h]:=0;
      while b2 do
        begin
          b[h]:=b[h]+1;
          if b[h]<=num then
            begin
              if sz[b[h-1],b[h]] then
                begin
                  bj:=true;i:=1;
                  while i<=h-1 do
                      if b[i]=b[h] then
                        begin
                          bj:=false;
                          i:=h-1;
                        end;
                  if bj then
                     begin
                     if h=num then
                        begin
                        for i:=1 to num do write(b[i]);
                        b2:=false;
                        b1:=b2;
                        k:=num;
                        end
                     else b2:=false;
                     end;
                  end;
               end
            else
                begin
                h:=h-1;
                if h=1 then
                   begin
                   b2:=false;
                   b1:=b2;
                   end;
                end;
            end;
      end;
end;
end.