let fib f n = if n < 2 then 1 else f (n-1) + f (n-2);;