ocaml # let rec fib i = if i <= 1 then 1 else fib (i - 1) + fib (i - 2);;
This is, however, exponentially slow, for the same reason that
edit_distance was slow: we end up making many
redundant calls to fib. It shows up quite
dramatically in the performance.