var a: array[1..1000, 1..1000] of longint;
    n, m, i, j: longint;
begin
    read(n, m);

    for i := 1 to n do
        for j := 1 to m do
            read(a[i,j]);

    for j := 1 to m do begin
        for i := 1 to n do
            write(a[i,j], ' ');
        writeln;
    end;
end.