main( ) {

cobegin

father(); son();

daughter(); coend }

father() {

while(1)

{

P(S );

将水果放入盘中；

if （放入的是桔子）else V(Sa); } }

son( ) {

while(1)

{

P(So);

从盘中取出桔子； V(S); 吃桔子； } }

daughter( ) {

while(1) {

P(Sa);

从盘中取出苹果； V(S); 吃苹果； } }

V(So);