you're right, but you can implement the real fib by returning N instead of 1:

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