uses crt;
var
    pr: array[0..1000000] of longint;  // Mảng chưa số nguyên tố
    lpf: array[0..1000000] of longint; // Mảng chứa ước số nguyên tố nhỏ nhất
    cnt: longint;   // Số lượng số nguyên tố trong mảng pr
    
    a, pfs: array[0..1000, 0..1000] of longint;
    i, j, n, m, k: longint;
    c, r: longint;

// Sàng nguyên tố
procedure linear_sieve(n: longint);
var i, j: longint;
begin
    for i:=2 to n do begin
        if lpf[i] = 0 then begin
            inc(cnt); pr[cnt]:=i;
            lpf[i]:=i;
        end;
        j:=1;
        while (j <= cnt) and (pr[j] <= lpf[i]) and (pr[j] * i <= n) do begin
            lpf[i * pr[j]]:=pr[j];
            inc(j);
        end;
    end;
end;

// Hàm kiểm tra nguyên số (dựa vào sàng ở trên)
function isPrime(n: longint): boolean;
begin
    if n <= 1 then exit(false);
    exit(lpf[n] = n);
end;

// Các thuật sử dụng: Sàng nguyên tố, Mảng tổng dồn
begin
    clrscr;
    linear_sieve(1000000);
    
    readln(n, m, k);
    for i:=1 to n do
        for j:=1 to m do begin
            read(a[i][j]);
            pfs[i][j]:=pfs[i][j - 1] + pfs[i - 1][j] - pfs[i - 1][j - 1];
            if isPrime(a[i][j]) then inc(pfs[i][j]);
        end;
    readln;
    
    for i:=k to n do begin
        for j:=k to m do begin
            if pfs[i][j] - pfs[i - k][j] - pfs[i][j - k] + pfs[i - k][j - k] = k * k then begin
                for r:=i - k + 1 to i do begin
                    for c:=j - k + 1 to j do
                        write(a[r][c], ' ');
                    writeln;
                end;
                readln; exit;
            end;
        end;
    end;
    writeln(-1);
readln;
end.