define prisoners = 0, step = 0, killcount = 0
define survivor = 0, remainder = 0

do

	print "Prisoners: " \
	input prisoners

	print "Step: " \
	input step

	gosub executioner

loop

sub executioner

	let killcount = 1

	do

		let killcount = killcount + 1
		let survivor = survivor + step
		let survivor = survivor / killcount
		carry survivor

	loop killcount < prisoners

	print "survivor = " \
	print survivor

return