program main implicit none integer*8::N,K read *,N,K print '(i0)', (N/(K+1)+1) end program main