program graph3;

{$APPTYPE CONSOLE}
 var  m,n:integer;

 c:array [1..100,1..100] of integer;
kk,k,im,np,i,j:integer;
 	 rez,stack:array [0..100] of integer;
f1:text;
procedure outresalt;
 var p,i:integer;
 vv:boolean;
 	begin

vv:=true;
i:=0;
while i<m-1 do begin
for j:=i+1 to m-1 do
if (stack[i]=stack[j])and(stack[i+1]=stack[j+1]) then vv:=false;
i:=i+1;
end;
if vv then begin
      for i:=0 to m do write(f1,stack[i],' ');
      writeln(f1);
 	end;
end;
 begin
assign(f1,'graph.dat');
Reset(f1);
readln(f1,n);
for i:=1 to n do
for j:=1 to n do read(f1,c[i,j]);
close(f1);
assign(f1,'graph.sol');
rewrite(f1);

m:=0;
 for i:=1 to n do begin
 for j:=i to n do if c[i,j]=1 then m:=m+1;



for k:=1 to 6 do begin
                        stack[0]:=k;
                         im:=1;
                          np:=1;
                           while im>0  do begin
                            while ((np<=n)and(c[stack[im-1],np]=0)) do  np:=np+1;


                             if (np>n) then begin im:=im-1; np:=stack[im]+1; end
                             else
                               begin

                                  stack[im]:=np;
                                  im:=im+1;
                                  np:=1;



                                  if im-1=m then begin outresalt;im:=im-1;np:=stack[im]+1;end
                                  end;


 		                  end;
                      end;



CLOSE(F1);

  end.