var a:array[1..30000] of integer;
    h,d,i,j,p,n,gas:integer;
    f1,f2:text;
begin
assign(f1,'order.in');
assign(f2,'order.out');
reset(f1);
rewrite(f2);
readln(f1,n);
for i:=1 to n do
 a[i]:=i;
d:=0;p:=1;
repeat
 h:=0;d:=d+1;
 while h<d do
  begin
   h:=h+1;
   if p=n then p:=1
          else p:=p+1;
  end;
 writeln(f2,a[p]);
 for i:=p+1 to n do
  a[i-1]:=a[i];
 n:=n-1;p:=p-1;
until n=0;
close(f1);
close(f2);
end.