main :: IO ()
main = do
    [l,k] <- map read . words <$> getLine :: IO [Int]
    let n = (l + k - 1) `div` k
        (d,m) = n `divMod` 2
    print $ k * if m == 0 then d - 1 else d