program lichylka;
var a:array[1..10000] of integer;
ti,l,i,n,k,j:integer;
begin
readln(n,k);
for i:=1 to n do a[i]:=i;
i:=n;
j:=1;
while i>0 do begin
l:=0;
while (l<k) do begin
while a[j]=0 do
if j<n then j:=j+1 else j:=1;
if (j<n) and (a[j]<>0) then begin
ti:=j;j:=j+1;l:=l+1; end
else if (j=n) and (a[j]<>0) then begin
ti:=j;l:=l+1;j:=1;end
end;
a[ti]:=0;
i:=i-1;
if (ti<n) then j:=ti+1 else j:=1;
end;
writeln(ti);
end.