more playing with ocaml