type tablou=array [1..8]of 0..8;
var t:tablou;
    i,j,k,m,n:integer;
    vs,ams:boolean;
    f,g:text;
begin
assign(f,'permutari.in');
assign(g,'permutari.out');
reset(f);
rewrite(g);
read(f,n);
k:=1;
t[k]:=0;
while k>0 do
 begin
  repeat
  if t[k]<n then                  begin
           t[k]:=t[k]+1;ams:=true;
           end
         else ams:=false;
  if ams then begin
         vs:=true;
  for i:=1 to k-1 do
   if t[k]=t[i] then vs:=false;
    end;
  until (vs and ams)or not(ams) ;
  if ams then
    if k=n then begin
                for i:=1 to n do
                       write(g,t[i],' ');
                writeln(g);
               end
    else begin k:=k+1; t[k]:=0;end
 else k:=k-1;
 end;
close(f);
close(g);
end.