#proc {dict merge} {dict args} {
#	foreach d $args {
#		foreach k [dict keys $d] {
#			dict set dict $k [dict get $d $k]
#		}
#	}
#	return $dict
#}