var n,k,x: integer;
prov,res:real;
begin
read(n,k);
  x:=n*2;
    res:=x/k;
      res:=trunc(res); writeln(res);
end.