yuLength :: [Integer] -> Integer
yuLength (l : k : _)
    | m > 0     = n * k
    | otherwise = (n - 1) * k
    where (n, m) = divMod l (2 * k)

main :: IO ()
main = print . yuLength . map read . words =<< getLine