% $Id: NewPortMerging.oz,v 1.1 2007/11/13 15:40:38 leavens Exp leavens $ % Example demonstrating merging by NewPort declare P S {Browse S} P={NewPort S} thread for I in 1..10 do {Send P I} {Delay 500} end end thread for J in 201..210 do {Send P J} {Delay 300} end end