let () =
  let w, d = Scanf.scanf "%d %d " (fun w d -> w, d) in
  let rec doit w d =
    if d = 1 then w
    else doit (w - w / d / d) (d - 1) in
  doit w d |> Printf.printf "%d\n"