Program M_power;
var
 a, b, c: array [ 1..100, 1..100 ] of integer;
 i, j, Ia, n, k, l: 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 <> o 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
        c[ i, j ]:= c[ i, j ] + c[ i, l ] * c[ l, j ];
    end
   else
    begin
     k:= k - 1;
     for i:= 1 to Ia do
      for j:= 1 to Ia do
       for l:= 1 to Ia do
        b[ i, j ]:= b[ i, j ] + b[ i, l ] * c[ l, j ];;
    end;
   for i:= 1 to Ia do
    begin
     for j:= 1 to Ia do
      write( b[ i, j ] );
     writeln;
    end; 
end.