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