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