$module FibTest;

$use Access Apply Arithm Dos Parallel StdIO; 

$func Fib s = s;
Fib {
	0 = 0;
	1 = 1;
	s.n =
		<Sub s.n 1> :: s.n,
		<FutureApply &Fib s.n> :: s.sobox1,
		//<Fib s.n> :: s1,

		<Sub s.n 1> :: s.n,
		//<FutureApply &Fib s.n> :: s.sobox2,
		<Fib s.n> :: s2,

		<Get s.sobox1> : s1,
		//<Get s.sobox2> : s2,
		<Add s1 s2>;
};

$func Main = e;

Main =	
	<PrintLn <Time>>,
	<PrintLn <Fib 24>>,
	<PrintLn <Time>>;