program asda;
type indice=0..16;
submultime=array[indice] of indice;
var f,g:text;
c:submultime;
m,n:indice;
i:integer;
imf:set of indice;
 procedure afis;
  var i:indice;
   begin
     for i:=1 to n do write(g,c[i],' ');
     writeln(g);
   end;
 procedure permut(k:indice);
 var i:indice;
 begin
   if k-1=n then afis
   else for i:=1 to n do
     if not (i in imf) then begin
     c[k]:=i;
     imf:=imf+[i];
     permut(k+1);
     imf:=imf-[i];
     end;
 end;
begin
assign(f,'permutari.in');reset(f);
assign(g,'permutari.out');rewrite(g);
read(f,n);
permut(1);
close(f);close(g);
end.