var v: array[ 1..10 ] of integer;
    used: array[ 1..10 ] of char;
    n,i : integer;
procedure back( k:integer );
begin
	if k = n 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+1]:=i;
					used[i]:='1';
					back( k+1 );
					used[i]:='0';
				end;
		 end;
end;
begin
	assign( input, 'permutari.in' ); reset( input );
	assign( output, 'permutari.out' ); rewrite( output ); 
	readln(n);
	//write(n);
	for i:=1 to n do
	   used[i]:='0';
	back(0);
	close( input ); close( output );
end.