another try for ocaml