Fib.fib 3;;
Fib.fib 30;;
Fib.fib 300;;
Fib.fibpair 300;;
Fib.fibpair 30;;
Profiler.run;;
let ls = IntLst.range 1 100000;;
Profiler.run IntLst.average ls;;
Profiler.run IntLst.average1 ls;;
let rec f x = 1 + f x;;
f 0;;
let rec is_even = function 0 -> true
| 1 -> false
| n -> is_odd(n-1)
and is_odd = function 0 -> false
| 1 -> true
| n -> is_even(n-1);;
is_even ~-1;;
min_int;;
min_int - 1;; 
is_even max_int;;
let length_tl ls = 
 let rec length len xs = match xs
  | [] -> len
  | x::xs -> length (len+1) xs in
 length 0 xs;;
Lst.length [1;2;3];;
Lst.length_tl [1;2;3];;
Lst.length [1;2;3];;
IntLst.range 1 10;;
IntLst.range_tl 1 10;;
IntLst.range_tl 1 1000000;;
IntLst.range 1 1000000;;
IntLst.range_tl 1 1000000;;
let xs = IntLst.range 1 1000000;;
let xs = IntLst.range_tl 1 1000000;;
IntLst.sumlen xs;;
Profiler.run IntLst.sumlen xs;;
let xs = IntLst.range_tl 1 100000;;
Profiler.run IntLst.sumlen xs;;
Profiler.run IntLst.sumlen_tl xs;;
let xs = IntLst.range_tl 1 100000;;
Profiler.run IntLst.sumlen_tl xs;;
Profiler.run IntLst.sumlen_tl2 xs;;
Lst.reverse xs;;
let xs = IntLst.range_tl 1 10000;;
Lst.reverse xs;;
Profiler.run Lst.reverse xs;;
let xs = IntLst.range_tl 1 100000;;
Profiler.run Lst.reverse xs;;