(define (System.out.println x)
  (begin
    (display x)
    (newline)
  )
)

(let loop(
          (W (read))
          (D (read))
         )
  (if (= D 1)
      (System.out.println W)
      (loop (- W (floor (/ W (expt D 2)))) (- D 1))
  )
)