var n:integer;
    ok:boolean;
    v:array [1..30000] of integer;
    f,g:text;

 procedure citire;
  begin
   readln(f,n);
   if n=1 then write(g,1)
   else
     if n=2 then write(g,2,' ',1)
     else ok:=true;
  end;

 procedure order;
  var i,j,p,k:integer;
  begin
   for i:=1 to n do v[i]:=i;
   write(g,2,' ');
   for i:=3 to n do v[i-1]:=v[i];
   n:=n-1;
   p:=1;
   i:=2;
   repeat
   p:=p+1;
   k:=1;
   while k<p do
     begin
     i:=i+1;
     k:=k+1;
     if i>n then i:=1;
     end;
   write(g,v[i],' ');
   for j:=i+1 to n do v[j-1]:=v[j];
   n:=n-1;
   until n=1;
   write(g,v[1]);
  end;

begin
  assign(f,'order.in');
  assign(g,'order.out');
  reset(f);
  rewrite(g);
  ok:=false;
  citire;
  if ok then order;
  close(f);
  close(g);
end.