main::IO()
main = do
  w <-fmap read getLine
  d <-fmap read getLine
  let amt d w = w `div` (d*d)
      exe 1 w = w
      exe d w = exe (d-1) $ w - amt d w

  print $ exe d w