main :: IO ()
main = do
  [l, k] <- map read . words <$> getLine
  print . (* k) . div (l - 1) . (* 2) $ k