main :: IO ()
main = do
  a <- readLn
  b <- readLn
  print $ solve a b

solve :: Integer -> Integer -> Integer

solve a 1 = a
solve a b = solve (a - div a (b * b)) (b - 1)