local function E(E,F,S)local Y=S for S=#E,1,-1 do Y=F(Y,E[S],S)end return Y end return E

local function foldRight(list, callback, initialValue)
	local accum = initialValue

	for i = #list, 1, -1 do
		accum = callback(accum, list[i], i)
	end

	return accum
end

return foldRight
