var     a:array[1..100] of integer;
        n,i:longint;
        f1,f2:text;

procedure bin(p:integer);
var     i:integer;
begin
  if p>n then
    begin
      for i:=1 to n do
        if a[i]=1 then write(f2,i,' ');
        writeln(f2);
    end
  else
    begin
      a[p]:=1;
      bin(p+1);
      a[p]:=0;
      bin(p+1);
    end;
end;

begin
  assign(f1,'submultimi.in');
  assign(f2,'submultimi.out');
  reset(f1);
  rewrite(f2);
  readln(f1,n);

  bin(1);

  close(f2);
end.