% $Id: BarrierTest.oz,v 1.1 2007/11/14 02:25:56 leavens Exp leavens $ \insert 'Barrier.oz' \insert 'Hailstone.oz' fun {ProcList N} if N == 0 then nil else proc {$} Vals = {IterHailstone N} in {Delay {Length Vals}* 200} {Browse N#Vals} end | {ProcList N-1} end end {Barrier {ProcList 28}} {Browse done}