$module ParApplyTest;

$use Access Apply Arithm Dos Parallel StdIO; 

$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.n s.mbox,
	<Send s.mbox <Fact s.n>>;

$func Main = e;

Main = <MsgBox> :: s.mbox,
	<PrintLn <Time>>,
	<ParApply &ParCall 40000 s.mbox> : e,
	<PrintLn <Time>>,
	<ParApply &ParCall 40000 s.mbox> : e,
	<PrintLn <Time>>,
	<ParApply &ParCall 40000 s.mbox> : e,
	<PrintLn <Time>>,
	<Recv s.mbox> : e,
	<PrintLn <Time>>,
	<Recv s.mbox> : e,
	<PrintLn <Time>>,
	<Recv s.mbox> : e,
	<PrintLn <Time>>;