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);