var i,j,k,l,m,n:integer; a:array[1..100] of integer; f1,f2:text;
procedure perm(l:integer);
var i,j:integer; b:boolean;
begin
if l=n then begin
for i:=1 to n do write(f2,a[i],' ');
writeln(f2);
end
else begin
for i:=1 to n do begin
b:=true;
for j:=1 to l do if a[j]=i then begin b:=false; break; end;
if b then begin a[l+1]:=i; perm(l+1); end;

end;
end;
end;
begin
assign(f1,'permutari.in');
reset(f1);
readln(f1,n);
close(f1);
assign(f2,'permutari.out');
rewrite(f2);
perm(0);
close(f2);

end.