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

main :: IO ()
main = do
    [l,k] <- readDigits
    let (d,m) = divMod l (2*k)
    let mm = if m==0 then k*(d-1) else k*d
    putStrLn . show $ mm