module treeprod; behavior TreeProduct { void compute(Tree t, UniversalActor c){ if (t.isLeaf()) c <- result(t.value()); else { JoinCont newCust = new JoinCont(c); TreeProduct lp = new TreeProduct(); TreeProduct rp = new TreeProduct(); lp <- compute(t.left(), newCust); rp <- compute(t.right(), newCust); } } }