var n,i,j:longint;

procedure bin(s:string);
var i:longint;
begin
  if length(s)=n then begin 
    for i:=1 to n do
      if s[i]='0' then write(i,' ');
    writeln
  end else begin
    bin(s+'0');
    bin(s+'1');
  end;
end;

begin
  assign(input,'submultimi.in');
  assign(output,'submultimi.out');
  reset(input);
  rewrite(output);
  read(n);
  bin('');
end.