var n:byte;
     v:array[1..8] of byte;

procedure back(k:byte);

var i,j:byte;
     ok:boolean;

begin

if k=n then begin
                for i:=1 to n do write(f,v[i],' ');
                writeln(f);
                end
         else
         begin
         for i:=1 to n do
    	begin
    	ok:=true;
    	for j:=1 to k do
        		if v[j]=i then 
			begin
                       		ok:=false;
                       		break;
                       		end;
        	if ok then begin
                     	v[k+1]:=i;
                            back(k+1);
                            end;
         	end;
         end;

end;

begin {main}

assign(input,'permutari.in');reset(input);
assign(output,'permutari.out');rewrite(output);

readln(n);

back(0);

close(input);close(output);
end.