--> function iterative2(integer n,k,s) integer a = k*(n-s) + 1, olda = a atom q = k/(k-1), nk = n*k while a <= nk do olda = a a = ceil(a*q) end while return nk - olda + 1 -- (make result 1-based) end function