The script to create configuration

	(creat-config(coll linkColl newConfig)
	(let* ((closure [send-now-multicast find-closure to linkColl])
	(collToModify(append coll closure))
	(clones [send-now-multicast cloning to collToModify])
	(linkClones [send-now-multicast cloning to linkColl])
	(front [send-now-multicast find-frontier to collToModify])
	(setq collection clones linkCollection linkClones frontier front)
	[send-multicast freezing to collToModify linkColl]
	[send-now-multicast (take-new-conf newConfig) to collection LinkCollection]
	[send-now-multicast  (update-conf newConfig) to frontier])