another ocaml test