A 4Store binding in ocaml