// "channel-self-parallel-a.hac"
// copy-modified from "channel-self-sequence.hac"
//	$Id: channel-self-parallel-a.hac,v 1.2 2007/01/21 06:02:26 fang Exp $
// channel sends to itself in sequence of parallel sends

chan(bool) X;
bool b;

chp {
	X!(true), X?(b);	// paired concurrent
	X!(false), X?(b);
	X!(true), X?(b)
}
// should work, because channel is initially ready to send
// should still occur sequentially, with no real concurrency

