n = 41 #prisoners
k = 3  #order of execution

print "n = "; n, "k = "; k, "final survivor = "; Josephus(n, k, 0)
end

function Josephus(n, k, m)
	lm = m
	for i = m + 1 to n
		lm = (lm + k) mod i
	next
	return lm
end function