https://bloomberg.github.io/bucklescript/js-demo/index.html

length_test.ml

let rec length1 = function
  | []      -> 0
  | _ :: tl -> 1 + length1 tl

let length2 list =
  let rec _length2 n = function
    | []      -> n
    | _ :: tl -> _length2 (n + 1) tl
  in
  _length2 0 list
 
let length3 list =
  let rec _length3 list cont = match list with
    | []      -> cont 0
    | _ :: tl -> _length3 tl (fun n -> cont (n + 1))
  in
  _length3 list (fun n -> n)
 
let repeat elem num =
  let rec _make_list list n = if n > 0
    then _make_list (elem :: list) (n - 1)
    else list
  in
  _make_list [] num

let test name func =
  let list = repeat 0 100000 in
  try
    let len = func list in
    print_endline (name ^ " " ^ string_of_int len)
  with
    _ -> print_endline (name ^ " :(")

let () = test "length1" length1
let () = test "length2" length2
let () = test "length3" length3

output.txt

length1 :(
length2 100000
length3 :(