program pas;
var a:array[1..2002,1..2002] of byte;
    n,m,ii,jj,i,j,p,q,c:integer;
    x:byte;
begin
  readln(n,m,x); ii:=1; jj:=1;
  for i:=1 to n do
  begin
    jj:=1;
    for j:=1 to m do
      begin
        read(c);
        for p:=ii to ii+x-1 do
          for q:=jj to x+jj-1 do
            a[p,q]:=c;
        jj:=jj+x;
      end;
    ii:=ii+x;
     readln;
  end;
  for i:=1 to n*x do
    begin
      for j:=1 to m*x do
        write(a[i,j],' ');
      writeln;
    end;
end.