SEQ INT a: INT b: INT temp: PAR INT c = (a*b) - b: INT d = (b*b) - a: PAR channel.c ! c channel.d ! d stdout ! c stdout ! d ALT channel.c ? temp SEQ temp := (temp + c) * b channel.c ! temp channel.d ? temp SEQ temp := (temp + d) * a channel ! temp STOP