Program detal2;

var n,mm,kk,i,j:integer;
 det:array [1..100,1..100] of integer;
 type setint=set of 1..100;
 var t,tmin :integer;
 a,amin:array [1..100] of integer;
    f:text;
 procedure detal(s:setint; k:integer);
 var i,temp:integer;
 begin
 if s=[] then begin
 if tmin>t then
 begin
 amin:=a;
 tmin:=t;
 end; end else
 begin
 for i:=1 to n do
 if i in s then  begin
 a[k]:=i;
 temp:=t;
 if t<det[k,i] then t:=det[k,i];
 if t<tmin then detal(s-[i],k+1);
 t:=temp;
 end;
 end;

 end;

 begin
assign(f,'input01.txt');
 reset(f);
 readln(f,n,mm,kk);
 for i:=1 to n do
 for j:=1 to n do
 read(f,det[i,j]);
 close(f);
 tmin:=maxint;
 t:=0;
 detal([1..n],1);
 assign(f,'output01.txt');
      rewrite(f);
 writeln(f,tmin);
 for t:=1 to n do write(f,amin[t]:5);
 close(f);

 end.