{FP}
{$M 64000000,0}
{$MODE OBJFPC}
{$IFDEF ANHDQ}
  {$INLINE OFF}
  {$H-,I+,Q+,R+,S+}
{$ELSE}
  {$INLINE ON}
  {$H+,I-,Q-,R-,S-}
{$ENDIF}

// Result:
program submultimi_AnhDQ;

const
  FI_NAME = 'submultimi.in';
  FO_NAME = 'submultimi.out';

var
  n: LongInt;
  R: array[0..16] of LongInt;
(*------------------------------*)
  procedure Gen(i: LongInt); inline;
  var j: LongInt;
  begin
    if i > 0 then
    begin
      for j := 1 to R[0] do write(R[j], ' ');
      WriteLn();
    end;

    for j := i + 1 to n do
    begin
      Inc(R[0]);
      R[R[0]] := j;
      Gen(j);
      Dec(R[0]);
    end;
  end;
(*------------------------------*)
begin
  Assign(Input, FI_NAME); Reset(Input);
  Assign(Output, FO_NAME); Rewrite(Output);
  read(n);
  Gen(0);
end.