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

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

solve :: [Int] -> Int
solve [l, m] = (myCeiling l (m * 2) - 1) * m