main=do[n,k]<-map read.words<$>getLine;print$div n(k+1)+1