module Main where

import Control.Monad

main :: IO ()
main = do
    [l, k] <- fmap read . words <$> getLine :: IO [Int]
    let cs = takeWhile (> 0) (iterate (subtract (k * 2)) l)
    let count = length cs - 1
    print $ count * k