var s:array[1..8] of byte;
    i,k,n,m:byte;
begin
  assign(input,'permutari.in'); reset(input);
  assign(output,'permutari.out'); rewrite(output);
  readln(n); k:=1;
  while k>0 do begin
    repeat
      inc(s[k]);
    until (s[k]>n)or(s[k]<=n)and(s[k]>s[k-1]);
    if (s[k]<=n) then
      if k=n then begin for i:=1 to n do write(s[i],' '); writeln; end
      else inc(k)
    else begin s[k]:=0; dec(k); end;
  end;
  close(input); close(output);
end.