main :: IO ()
main = interact $ show . solve . map read .words

solve :: [Int] -> Int
solve [n, d] = myCeiling n j
  where
    j = 2 * d + 1

myCeiling :: Int -> Int -> Int
myCeiling m n = ceiling $ (fromIntegral m) / (fromIntegral n)
