local function r(r,...)local f={}local a=""for r,m in pairs({...})do f[m]=true a=a..((a==""and""or" \111\114 ")..m)end local m=type(r)assert(f[m],a..(" \116\121\112\101 \101\120\112\101\099\116\101\100\044 \103\111\116\058 "..m))end

local function AssertTypes(param, ...)
	local allowedTypes = {}
	local typeString = ''
	for _, typeName in pairs({...}) do
		allowedTypes[typeName] = true
		typeString = typeString .. (typeString == '' and '' or ' or ') .. typeName
	end
	local theType = type(param)
	assert(allowedTypes[theType], typeString .. " type expected, got: " .. theType)
end
