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

main :: IO ()
main = do
    [l,k] <- readDigits
    putStrLn . show $ k * (l `div` (2*k))