added ocaml utils