Program M_power;
var
 a, b, c, b1, c1: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, l, ix, jx: integer;

begin
 readln( Ia );
 for i:= 1 to Ia do
  begin
   for j:= 1 to Ia do
    read( a[ i, j ] );
   readln;
  end;
   
  readln( n );
  k:= n;
  for i:= 1 to Ia do
   for j:= 1 to Ia do
    if i = j then b[ i, j ]:= 1
    else b[ i, j ]:= 0;
  for i:= 1 to Ia do
   for j:= 1 to Ia do
    c[ i, j ]:= a[ i, j ];
  
  while k <> 0 do
   if k mod 2 = 0 then
    begin
     k:= k div 2;
     for i:= 1 to Ia do
      for j:= 1 to Ia do
       for l:= 1 to Ia do
        begin
         c1[ i, j ]:= c1[ i, j ] + c[ i, l ] * c[ l, j ];
         for ix:= 1 to Ia do
          for jx:= 1 to Ia do
           begin
            c[ ix, jx ]:= c1[ ix, jx ];
            c1[ ix, jx ]:= 0;
           end;
        end;  
    end
   else
    begin
     k:= k - 1;
     for i:= 1 to Ia do
      for j:= 1 to Ia do
       for l:= 1 to Ia do
        begin         
         b1[ i, j ]:= b1[ i, j ] + b[ i, l ] * c[ l, j ];
         for ix:= 1 to Ia do
          for jx:= 1 to Ia do
           begin
            b[ ix, jx ]:= b1[ ix, jx ];
            b1[ ix, jx ]:= 0;
           end;
        end;   
    end;
   for i:= 1 to Ia do
    begin
     for j:= 1 to Ia do
      write( b1[ i, j ] );
     writeln;
    end; 
end.