function sort(t)
     local ranks = {}
     local i = 1

     for _, v in ipairs(t) do
          if not ranks[v] then
               ranks[v] = i
               i = i + 1
          end
     end

     table.sort(t, function (a, b) return ranks[a] < ranks[b] end)
     return t
end

function multiset_new(t)
	local elements = {}
	local multiplicity = {}
	for k,v in pairs(t) do
		if not multiplicity[v] then
			elements[#elements+1] = v
			multiplicity[v] = 1
		else
			multiplicity[v] = multiplicity[v] + 1
		end
	end
	return elements, multiplicity
end
-- iteration function for kicks
function multiset_iter(elements, multiplicity)
	local i, j = 1, 0
	return function()
		j = j + 1
		if j > multiplicity[elements[i]] then
			i = i + 1
			j = 1
		end
		return elements[i]
	end
end

elements,multiplicity = multiset_new({1,1,1,1, 4,4,4,4, 5,5,5, 4, 5})
for v in multiset_iter(elements, multiplicity) do
	print(v)
end