example1.ml

(* Fibonacci function *)

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

print_int (fib ( 10 ));
print_newline();