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

print "n = ", n, "\tk = ", k, "\tfinal survivor = ", Josephus(n, k, 0)
end

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