var f,f2:text;
    n,i,j,niv:byte;
    fol:array[1..8] of boolean;
    cperm:array[1..8] of byte;
procedure Perm(k:byte);
 var t:byte;
 begin
  cperm[niv]:=k;
  if niv=n then
   begin
    for t:=1 to n do write(f2,cperm[t],' ');
    writeln(f2);
   end;
  fol[k]:=true;
  for t:=1 to n do
   begin
    niv:=niv+1;
    if not fol[t] then Perm(t);
    niv:=niv-1;
   end;
  fol[k]:=false;
 end;

begin
assign(f,'permutari.in');
assign(f2,'permutari.out');
reset(f);
readln(f,n);
close(f);
rewrite(f2);
for j:=1 to n do fol[j]:=false;
for i:=1 to n do
 begin
  niv:=1;
  Perm(i);
 end;
close(f2);
end.