type sss=set of byte;
var t:               text;
    n:               1..8;
    s:array[1..8] of byte;
  procedure backtrack(x:byte;s1:sss);
   var i:byte;
    begin
     if x>n then begin
       for i:=1 to n do write(t,s[i],' ');
       writeln(t);
     end else
     for i:=1 to n do
     if (i in s1) then begin
       s[x]:=i;
       backtrack(x+1,s1-[i]);
     end;
    end;
      begin
       assign(t,'permutari.in');
       reset(t);
       readln(t,n);
       close(t);
       assign(t,'permutari.out');
       rewrite(t);
       backtrack(1,[1..8]);
       close(t);
      end.