let rec fib n = if n > 1 then fib(n-1) + fb (n-2) else 1;;