module Main where

main :: IO ()
main = do
  { [l,k] <- getInts
  ; print $ case divMod l (2*k) of
      (d,0) -> pred d * k
      (d,_) -> d * k
  }

getInts :: IO [Int]
getInts = map read . words <$> getLine