A little experiment in OCaml