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

solve l k
    | l > k = k + solve (l-2*k) k
    | otherwise = 0

main :: IO ()
main = do
    [l,k] <- readDigits
    putStrLn . show $ solve l k