main = do
  [l,k] <- (map read .words) <$> getLine
  let k' = k * 2
  putStrLn . show $ if l `mod` k' == 0 then ((l `div` k') - 1) * k else (l `div` k') * k