var n:shortint; y:string;

procedure yy;
var i:integer;
begin
  for i:=1 to n do
    y:=y+'0';
end;

procedure lire;
begin
  assign(input,'submultimi.in');
  reset(input);
  read(n);
  close(input);
end;

procedure ecrire(x:string);
var i:integer;
begin
  for i:=1 to length(x) do
    if (x[i]='1') then write(i,' ');
  writeln;
end;

procedure bin(x:string);
begin
  if (length(x)<n) then begin bin(x+'0'); bin(x+'1'); end else if x<>y then ecrire(x);
end;

begin
  lire;
  yy;
  assign(output,'submultimi.out');
  rewrite(output);
  bin('');
  close(output);
end.