var v,used: array[ 1..10 ] of integer;
    n: integer;
procedure back( k:integer );
var i: integer;
begin
	if k = n+1 then 
      begin
		for i:=1 to n do
			write( v[i], ' ' );
		writeln;
	  end
	else begin
			for i:=1 to n do
			   if 0 = used[i] then
			   begin
					v[k]:=i; used[v[k]]:=1;
					back( k+1 );
					used[v[k]]:=0;
			   end;
		 end;
end;
begin
	assign( input, 'permutari.in' ); reset( input );
	assign( output, 'permutari.out' ); rewrite( output );
	readln(n);
	back(1);
end.