program problem;
var N,M,rez,k,i,l,b,e,z,t : integer;
    f,f1 : text;
begin
assign (f, 'problem.in');
reset (f);
read (f, N);
read (f, M);
close (f);

rez:=0;

   begin
   for i:=1 to N do
   rez:=rez+i;
   end;

   begin
      for k:=rez downto M do
      b:=k mod M;
      if b=0 then
      b:=(b+1)*4;
    end;


assign (f1,'problem.out');
rewrite (f1);
write (f1,b);
close (f1);

end.