Here's an odoc notebook with some code snippets in it.
# let rec fib x = match x with | 0 -> 1 | 1 -> 1 | n -> fib (n-1) + fib (n-2);; val fib : int -> int = <fun>
Here's some more text.
# fib 10;; - : int = 89