// ************************************************************************** //
//                                                                            //
//    eses                   eses                                             //
//   eses                     eses                                            //
//  eses    eseses  esesese    eses   Embedded Systems Group                  //
//  ese    ese  ese ese         ese                                           //
//  ese    eseseses eseseses    ese   Department of Computer Science          //
//  eses   eses          ese   eses                                           //
//   eses   eseses  eseseses  eses    University of Kaiserslautern            //
//    eses                   eses                                             //
//                                                                            //
// ************************************************************************** //
// This function computes the n-th Fibonacci number in linear time.
// ************************************************************************** //

function fibonacci(nat n) : nat {
    nat i,f1,f2,fn;
    if(n==1 | n==2) {
       fn = 1;
    } else {
       f1 = 1;
       f2 = 1;
       i = 2;
       while(i<n) {
          i = i+1;
          fn = f1+f2;
          f1 = f2;
          f2 = fn;
       }
    }
    return fn;
}

thread Fibonacci {
    nat n;
    n = fibonacci(10);
}