$module FutureApplyTest;

$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 Main = e;

Main = <MsgBox> :: s.mbox,	
	<PrintLn <Time>>,
	<FutureApply &Fact 40000> :: s.sobox1,
	<PrintLn <Time>>,
	<FutureApply &Fact 40000> :: s.sobox2,
	<PrintLn <Time>>,
	<FutureApply &Fact 40000> :: s.sobox3,
	<PrintLn <Time>>,
	<Get s.sobox1> : e,
	<PrintLn <Time>>,
	<Get s.sobox2> : e,
	<PrintLn <Time>>,
	<Get s.sobox3> : e,
	<PrintLn <Time>>;