ketama for ocaml