main = do
    [l, k] <- map read . words <$> getLine
    print $ (l - 1) `div` (2 * k) * k