var f:text;
i,j,n,k,l:1..16;
begin
assign(f,'submultimi.in');reset(f);
read(f,n);close(f);
assign(f,'submultimi.out');rewrite(f);

for i:=1 to n do begin
    l:=i;k:=n+1;
    for j:=n downto i do begin
        l:=i;k:=n+1;
        repeat
              write(f,l,' ');
              inc(l);dec(k);
              until k-j=0;
        writeln(f);
        end;
    end;
close(f);
end.