var
wz,wpop,n,dl,ile:longint;
begin
readln(n,dl);
if n>=dl then
begin
 wz:=(n div dl)*n;
 ile:=(n div dl);
 wpop:=(n mod dl)*ile
end;
writeln(wz+wpop)
end.