An ocaml training example