table.copy = function(h)
	local result = {}
	for k,v in pairs(h) do
		result[k] = v
	end
	return result
end

end

end

	local data = {next=First_available_id}
	-- save a copy of Nodes with various fields deleted
	local kvs = {}
	for k,v in pairs(Nodes) do
		v = table.copy(v)
		v.data = {}
		for i,l in ipairs(v.editor.lines) do
			table.insert(v.data, l.data)
		end
		v.editor = nil
		table.insert(kvs, {k, v})
	end
	-- sort the copy to avoid spurious diffs in version control
	table.sort(kvs, function(a, b) return a[1] < b[1] end)
	data.nodes = Nodes

	f:write(json.encode({next=First_available_id, nodes=Nodes}))

	f:write('{ "next" : '..First_available_id..', "nodes" : {\n')
	for i,kv in ipairs(kvs) do
		if i > 1 then
			f:write(',')
		end
		f:write('"'..kv[1]..'": '..json.encode(kv[2])..'\n')
	end
	f:write('}}\n')

end

end

		obj.editor.lines = load_array(obj.data)