delete_result = function(from, to)
	for i=1,#Global_state.results do
		if eq(Global_state.results[i], {from, to}) then
			table.remove(Global_state.results, i)
		end
	end
end

add_result = function(from, to)
	table.insert(Global_state.results, {from, to})
end

on.quit = function()
	if Global_state.next_save then
		save_results()
		Global_state.next_save = nil
	end
end

save_results = function()
	if Results_filename == nil then return end
	print('saving to '..Results_filename)
	local f, err = App.open_for_writing(Results_filename)
	if err then error(err) end
	for _,result in ipairs(Global_state.results) do
		f:write(('%s beat %s\n'):format(result[1], result[2]))
	end
	f:close()
end

on.update = function()
	if Global_state.next_save and Global_state.next_save < Current_time then
		save_results()
		Global_state.next_save = nil
	end
end

	Global_state.results = {}  -- cache ordering for when we modify Data

		table.insert(Global_state.results, {subject, object})

Global_state = {}  -- just anything we need across functions

  -- just anything we need across functions
Global_state = {
	button_handlers = {},
	next_save = nil,  -- if set, timestamp at which to save results to disk
	results = {},  -- information about order in which to save to disk
}

							add_result(t1, t2)

							delete_result(t1, t2)
							add_result(t2, t1)

							delete_result(t2, t1)

						Global_state.next_save = Current_time + 3

end

end