import Control.Applicative
import Control.Monad
import Data.List
import Data.Monoid

f [l, k] = ((l-1) `div` (2 * k)) * k

main = map read . words <$> getLine >>= print . f