import Data.List

main = do
  li <- getLine
  let [l,k] = map read $ words li
  print $ compute k l

compute k l
  | q == 0 = (p-1)*k
  | True = p*k
  where (p,q) = divMod l (2*k)