$module AtomicApplyTest;

$use Access Box Arithm Dos StdIO Parallel; 

$func Fact s = s;

Fact s.n, 1 s.n $iter {
	<Mult s.res s.n> <Sub s.n 1>;
} :: s.res s.n, s.n : 0 = s.res;

$func ParCall s s = ;

ParCall s.box s.n,
	<PrintLn "Start in thread: " <Time>>,
	<Box.Store s.box <Fact s.n>>,
	<PrintLn "Done in thread: " <Time>>;

$func Main = e;

Main = <Box> :: s.box,
	<ParApply &AtomicApply &ParCall s.box 40000> : e,
	<ParApply &AtomicApply &ParCall s.box 40000> : e,
	<AtomicApply &ParCall s.box 40000> : e;