var n,k,l:real;
begin
read(n,k);
l:=(n*2/k);
if trunc(l)=0 then write(2)
else if frac(l)=0 then write(l)
else write(trunc(l)+1);
end.

l:=(n*2)/k;