?- flow( [
		[source, in, n1],
		[delay, n1, n2], 
		[delay, n2, n3], 
		[delay, n3, n4], 
		[delay, n4, n5], 
		[delay, n5, n6], 
		[delay, n6, n7], 
		[coeff(1/7), n1, n8],
		[coeff(1/7), n2, n8],
		[coeff(1/7), n3, n8],
		[coeff(1/7), n4, n8],
		[coeff(1/7), n5, n8],
		[coeff(1/7), n6, n8],
		[coeff(1/7), n7, n8]
	],
	n8).
