module mergeList {
	a=list:="name":="Rocket Skates", "price":=12.75, "color":="yellow"
	b=list:="price":=15.25, "color":="red", "year":=1974
	c=list
	bb=each(a)
	while bb {
		append c, eval$(bb!):=eval(bb)
	}
	bb=each(b)
	while bb {
		if exist(c, eval$(bb!)) then
			return c, eval$(bb!):=eval(bb)
		else
			append c, eval$(bb!):=eval(bb)
		end if
	}
	bb=each(c)
	Print format$("  |{0:8}|{1}", "Key", "Value")
	Gosub simple
	while bb {
		fun1(bb^+1, eval$(bb!),eval(bb))
	}
	Gosub simple
	
	sub fun1(n, a as string, b as variant)
		local string c=if$(type$(b)="String"->quote$(b), ""+b)
		Print format$("{0::-2}|{1:-8}|{2:15}|", n, quote$(a), c)
	end sub
simple:
	Print "--+--------+---------------+"
	Return
}
mergeList