Transform to Records in Oz Mooc

Transform.oz

declare
fun {Transform L}
	local Label Fields Values R in
		Label =  {List.nth L 1}
		Fields = {List.nth L 2}
		Values = {List.nth L 3}
		R = {Record.make Label Fields}
		local AssignValuesToFields in
		fun {AssignValuesToFields Fs Vs}
			if Fs == nil then R
			else
				if {List.is Vs.1} then R.(Fs.1) = {Transform Vs.1}
				else R.(Fs.1) = Vs.1
				end
				{AssignValuesToFields Fs.2 Vs.2}
			end
		end
		{AssignValuesToFields Fields Values}
		end
	end
end

{Browse {Transform [test [a b c] [[nested [a] [1]] b c]]}}