permutations

var
  a:array[0..10] of longint;
  i,j,n,m:longint;

function used(l,x:longint):boolean;
var
  i:longint;
begin
  used:=false;
  for i:=1 to l do
    if a[i] = x then
      begin
        used:=true;
        exit;
      end;
end;

procedure print(l:longint);
var
  i:longint;
begin
  if l = n then
    begin
      for i:=1 to l do
        write(a[i],' ');
      writeln;
    end;
end;

procedure dfs(v,l:longint);
var
  i:longint;
begin
  a[l]:=v;
  print(l);
  for i:=1 to n do
    if (not used(l,i)) and (l < n) then
      dfs(i,l+1);
end;

begin
  read(n);
  dfs(0,0);
end.