main = do w0 <- readLn d0 <- readLn let f :: Int -> Int -> Int f w 1 = w f w d = f (w-w`div`(d*d)) (d-1) in print $ f w0 d0