var f,g:text;
    n,i:longint;
    a:array[1..20] of longint;
    v:array[1..100] of boolean;

procedure per(p:longint);
var i:longint;
begin
  if p>n then begin
      for i:=1 to n do
        write(g,a[i],' ');
      writeln(g);
    end
  else begin
    for i:=1 to n do
      if v[i]=false then begin
        a[p]:=i;
        v[i]:=true;
        per(p+1);
        v[i]:=false;
      end;
  end;
end;

begin

  assign(f,'permutari.in');
  assign(g,'permutari.out');
  reset(f);
  rewrite(g);

  read(f,n);
  per(1);

  close(g);

end.