module examples.fibonacci;

behavior Fibonacci10 {

    int fib(int n){
	// delay to slow down the computations
	try {Thread.sleep(50);} catch (InterruptedException e){};
	if (n<=2) return 1;
	else return fib(n-1)+fib(n-2);
    }
   
    void act(String arguments[]){
	int n = 10;
	Fibonacci10[] fibs = new Fibonacci10[10];
	for (int i=0;i<n;i++){
	    fibs[i] = new Fibonacci10();
	}
	// fib(10)...fib(0) sent in that order
	// but printed in order of finishing execution
	for (int i=0; i<n; i++){
	    fibs[i]<-fib(new Integer(10-i))@
		standardOutput<-println(token);
	}
	// fib(10)...fib(0) sent in that order 
	// but forced to print in that order as well
	token x = new Integer(0);	
	for (int i=0; i<n; i++){
	    x = fibs[i]<-fib(new Integer(10-i)):waitfor(x)@
		standardOutput<-println(token);
	}

    } 
}